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oe 
4 contents 


1 ae = “Store driver values into CNF 
9 GET_PSI_xxx = Get ercen PSI parameter values 
CLEAR VOLAT ATILE - Clear List of volatile parameters 
89 NETSDEFAULT_CRI = Apply default values 
0 we TSDEE AU T opt! - Apply default values 
$5 NETSINSERT - Pre-insertion processin 
TO_PSI°= "sen CRI parameters to PSIACP 
? NETSINSERT_PLI = Pre-insertion processin 
ALLOC Ptvet + - ‘scoue PLVEC entry for new Line 
1 NETSSET Q10W = Issue datalink SETMODE funct fon 
99 LI_TO_PSI = Send PLI parameters to 
T6 + oF - Send control Q10 to Ati al 


SEND 

NETSBELETE_CRI = Pre-delete processing 
NE TSDELETE™ _PLI = Pre-delete processing 
NETSREMOVE xxx = Pre-remove processing 
CRI parameter action routines 
PLI parameter action routine 

DEVBUF - Build DLLOIO. buffer 
0T INT = Convert NMA to NFB code 
TRAN_DEQNAM = Translate device name 
PRS_ANEMONIC = Parse device mnemonic 
PRS_DECIMAL = Parse decimal number 
DEV-CNT_QIO = Get device counters 


SS SS SS SS 
OOO OONWOOCOONOOULSWwN—O 


MOWUN— YIN OOF 
NOOMWO SWS US 
@ 
Cc 
-— 
er- 
oo 


WIRORORORORORURD 


G 15 
TCNFDLL = Datalink database action routines 16-SEP-1984 01:15:07 VAX/VMS Macro v04-00 Pa 
WHac00D -SEP=-1984 02:18:18 ENETACE.. SREINEYCNFDLL MARS 1 i 


TITLE ME TENE DLL - Datalink database action routines 
-IDENT ‘Vv04-00 
DEFAULT DISPLACEMENT,LONG 


ooo 


PARA AAARAARARRAAAAASASALALAALELE LASERS ERE S EEE RELEASE ERR RSE R SEER EERE EES OD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


pw ee wef ele lolol elo lololelolololololo) 
COOOoQooooooooooooo 


4 
2 8 
ze : 
8 ie : 
10 ie : 
; a 
11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
\ 3* ONLY IN ACCORDANCE WITH THE R OF SUCH LICENSE AND WITH THE * 
13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 :* TRANSFERRED. * 
° w 
0 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 y :* CORPORATION. * 
Py t 
0000 ; 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4444 ? :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: * 
0000 5 ;* * 
4444 § FRA AAEAEAEE AEA AAA AEA AAA AEAAEAAAERAAEEARAEEAEEAERAERAAREAAEEARAAAEAAEAREAAAA ARETE 
0000 8° 
0000 9 ; FACILITY: NETWORK ACP 
0000 0; 
0000 1 ; ABSTRACT: 
4448 ¢ 3 Action routines for CRI and PLI databases. 
0000 4: This module provides support to the NETACP database management 
0000 >; including database entry insertion and action routines to 
0000 6 3 retrieve data for parameters which are not stored in any of 
44h i 3 the datalink CNF control blocks (CRI and PLI). 
909 9 : ENVIRONMENT: 

00 40 ; The module runs in kernel mode and at eqesteky elevated IPL. 
0000 41; It is therefore locked into the ACP’s virtural address space 
4 4g : in order to prevent the need for paging. 

900 44: Since the ACP is work-queue driven, and since it is the ACP 

45 ; that modifies the structure of the non-paged pool data base 

4 46 3 including the RCB (actually a VCB) and the private structures 
O86 47 ; hanging off of the RCB, there is no need to obtain the system 

000 $3 ; data base mutex -- no races can occur. However, it is 

000 49 ; necessary to raise IPL in order to stop any races with 

000 29 3 NETORIVER. 

$6 5° 

p ? ; AUTHOR: A.Eldridge 14-Feb-80 
5 3} MODIFIED BY: 
$ : v021 —- RNGOO21 Rod Gamache 17-Jul-1984 
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Add more checks to insure the DEVSV_NET bit is set for 
datalink drivers. 


Oooo 


SOOCOCOCOCOOCOCOOOOOOSOSSOSSSOSOSSOSGSOSGSOOOCOSOOCOCCOOOCOCCOOCOSOOOCOOOOOOOOoOO 


OOOOCOCoo 
Ooo 


v020 RNGOO20 Rod Gamache 16-Mar-1984 
cone sure DEVSV_NET bit is on before attempting to use any 
device driver. 
v019 RNGOO19 Rod Gamache 13-Jan-1984 
Add DPV and KMV support for X.25. 
v018 RNGOO18 Rod Gamache 18-Nov-1983 
Add QNA support for communication over the NI. 
v017 TMHOO17 Tim Halvorsen 27-Apr-1983 


Add pseudo-point-to-point version of PPUNA circuit for 
testing of point-to-point circuits over the NI. 


v016 RNGOO146 Rod Gamache 15-Apr-1983 
Allow driver NMA parameter i.d.'s to be returned which 
the NETACP doesn't know about. This allows drivers the 
flexibility of adding parmeters which the NETACP can ignore. 


v015 RNGOO15 Rod Gamache 11-Apr-1983 
Make the REMOVE XXX routines call the REMOVE_DEF routine 
to remove the PCI or CRI CNF structure. 


v014 TMHOO14 Tim Halvorsen 04-Mar-1983 
Add new DEVNAM circuit parameter action routine. 
Return second Longword of I0SB from datalink setmode 
to issuer of SET LINE STATE ON function. 


v013 TMHOO13 Tim Halvorsen 14-Feb-1983 
Make datalink BUS parameter variable, depending on the 
type of datalink. It now returns a larger value for NI 
datalinks, to account for the additional Phase IV Ethernet 
route header. 
Make BUS return Line BFS parameter if ayeten manager 
wants to override the executor buffer size on a per-Line 


SOOSOSSSSOSOSOSOSOSOOSOSOSOSOSOSOSOSOSOSOSOOSOOSSOSOSOSOSSOSOSOSOSOSOSOOSOOSOSOOSOSSoO: 


asis. 
Conditionally allow the DMC to perform 1/0 functions on the 
controller. 


v012 TMHOO12 Tim Halvorsen 20-Dec-1982 4 
Add new UNA parameter to table of parameters to ignore 
on sensemode requests. 
\f the error qualifier returned by a datalink driver is 
aanystce) address'’, meaning that DECnet’s requested physical 
address is in conflict with another user of the device, 
then map the qualifier to ‘hardware address’, for which 
a NICE parameter exists. This is so that when an NCP 
user requests to have the Line turned on, and it fails 
due to address conflict, then a parameter is returned with 
‘bad parameter value'’. 
Suppress node addresses if areas have been hidden. 


v011 TMHOOT1 Tim Halvorsen 29-Nov-1982 
Remove one lagging reference to NMASC_CIRTY_LAP symbol. 
} 


——— § ~OQOOGDOGD0000 0000000 OO 000 00 09 09 09 09 09 09 09 09 SINISE NI NNN AAA AAOOAAOOUMN 
FPADRI 29 OD NAW EWI 9 OD NIA UNE WWIN 9 OO NA UNE WW 0 OO NAU ES WIN)" OODNOUE Wh" OOD 
TE TELE TE TELE IOOCICOO OO IESE III Ieee eee Ieee rere rere rererererere rere rerererererererirererere rire 


SOoSOCSCSOSOSOSOOOOSOOOOOOSOOOOSOOSOSOOSOOOCOSOSOSOSOSOOSOOOSOOSOOOOOOOOOOOSOOOO 
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< + supgort for Ethernet protocol type pa poreneter. rather 
han using a hard-coded constant. is so that a UNA 
ton be used on another protocol type without interfer ng 
with the normal DECnet traffic on an experimental basis. 


v010 TMHOO10 Tim Halvorsen 13-Oct-1982 
Journal 1/0 requests to PSI 
ae Ree raty 1” Vihgecnaas of NMASC_ CIRTY_LAP with 
NARS defau oa ngof R now i to OUTGOING if NUMBER 
is set, since N URBER - s used for both incoming 
and outgoing DLN ¢ os 
Fix bug ine ET LINE if anenonic doesn't parse correctly. 


v009 TMHOO009 Tim Bal rerece, Phy. yh 
Change meaning of LPD DRT cel a 5 e designated 
router's node address to ats ADJ index 
ere circuit substate action routine $0 that value 
is returned if circuit is in ‘''S’’ state. 


v008 TMHOO08 Tim Halvorsen 14-Sep-1982 
Deassign channel if error detected trying to start 
a broadcast line and fhe executor sype is not Phase IV. 
(channel was gets ing left assigned). 
If an INCOMING DLM circuit is defined, then aeetars 
NETACP as able to receive incoming calls, in case it 
wasn't already defined in the SET EXECUTOR (PSI sieme 
not have been up then). 
Make USAGE default - OUTGOING if the NUMBER parameter 
is set on a DLM c 
Add DLM circuit defaulting (separate from transport defaults). 
Add support for automatic Line counters and automatic PSI 
native circuit counters. 


v007 TMHOO07 Tim Halvorsen 31-Aug-1982 
Add action routine to return desi nated router on NI. 
Fix counter returns for DLM switched circuits. 


v006 TMHOO06 Tim Halvorsen 01-Jul-1982 


Sss 


oo 


OoOooooooooo 


e.f! Se Be Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge 


Fix error pat in PSI wooo De sonstn ng. 
Modify PNA, PNN, BLO and add LIT to work with péjecone ton. 
Add PLI DEVNAM action routine, which returns the ag + cal 
device name being used by the Line, in VMS format, including 
the unit number. 
Do not allow user to turn on an NI Line device unless 
the executor type is set to Phase IV, since Phase II] 
doesn't handle” roadcast circuits 

ix bug in preallocation of abe wd buffers - it wasn't 
including the CXB overhead in the buffer size. 
Clear PLI MCD before each SHOW function. 


v005 TMHOOOS _ Tim Halvorsen 30-Jun-1982 
Change defaulting of | gh and circuit parameters, to 
be dependant on the cyee 8 ine or circuit. is 
done because the default oF teeteas for a DDCMP circuit 


SQOQoooooooooooooooooooooooo oo oooooooooooooooooooooooooooonm 
a a ee ee ee ee ee ed dd 
SIDED DEDEDE DE DP DED TT Be SE BB BE WII II IIIA RPOPOPONINOPINIPY 2 SS 


MOOD NAMEN HO OOD NAMEN  O OOO NAN EWI OS OO NAW E WR OOO NOAOUES WI OOONOUM 
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are not the same as for a X25 circuit, or an NI circuit. 
The same thing is true for DOCMP or LAPB Lines. 

Add code to ask PSI for it’s Line/circuit parameters on 
SHOW functions, so that a show returns the sum for both 
NETACPs and PSIs databases. 

Change mneumonic of KMS to KMX, marking it ‘multiple-unit 
controller’ and add KMY. 


v004 TMHOO04 Tim Halvorsen 16-Jun-1982 
pyuey? give null context area on PSI control Q10s. 
Fix List of Line/circuit parameters which are passed to PSI. 
add support for asking PS for its Line/circuit counters. 
Fix bug in sensing of datalink counters, to correctly 
detect and remove the ‘'seconds since last zeroed’’ counter 

it never worked, but no driver ever returned it either). 
Don't tell PSI about SVCs, since it doesn't want to know 


about them. 
Add aiuege to SEND_TO_PSI, so that all ACPCONTROL functions 
to PSIACP are terminated with NFBSC_ENDOFLIST, to avoid the 


check which doesn't allow 0 field identifiers. 


v003 TMHOO03 Tim Halvorsen 15-Jun-1982 
Remove code to disable error reporting from PSI control Q10s. 


vo002 TMHOO02 Tim Halvorsen 04-Apr-1982 
Make this new module from the CRI and PLI routines in CNFACT 
in an attempt to reduce the size of that module. 
Remove code to make the start key canonical, since 
the start key no longer exists. 
Add code to check if we are dealing with a LAPB Line, 
and if so, give it to PSIACP. 
Remove some obsolete symbols. 
Remove X.25 parameters from NICE-NFB translation table, 
since we will never have to translate PSI NICE parameters. 


SOOOCCCGCCOOOOCOOOGOOOOOOoOo 


ooo 
SOOooooooooooooo 


SOooooooooooo 


rs 


PoRoRORORORoRoRORORoROnOROnononOnonononononononononononony 3 2 ee 


OOONAUE WN $$ SO ODNAULS WN —$ O OONAUE WN 9 ODNAUE WN 


SOSCooooooooooooooooooocs 
tt 4 MOOODODOO00 0000 O0O 0.00 009 090909090909 090909 SII NNN 


stertue function to a datalink driver, so that pool 
expansion can be done to accomodate the buffers. It 

is done here because pool expansion can't be done on 

the interrupt stack in the datalink driver. 

Default the Line protocol based on the Line name mnemonic. 
Add X25 to the List of allowed mnemonics for circuit names. 
Send all circuits got/cheors with TYPE=X25 to PSI 

Change all CNF action rout ines to use the new action routine 
interface (NETCNF now automatically allocates a TMP buffer). 
Remove obsolete NUL action routines. 

Do not send ‘‘show-only"’ datalink parameters (returned by the 
driver and stored into the CNF) back to the driver in the 


SOoCSooCoooooooooooooooooooooo 
SOOOCCCCOOCOOOoOOooooooooooooooooo 


SOOCCOOCOOOSOSOOSOOOOOSOOOOOOOSOOOSOOSOOOOOOOOOSOoOSoOOo 
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next setmode. Mark show-only datalink parameters in the 
translation table. 
Make circuits of the form X25-x default to TYPE=/25 so that 
rou don't have to enter TYPE all the time 

eformat secondary search ey — consatcal form if the 
field is the Line or circuit 

Add om. to device list for X. 35 “network management. 

Add X.25 datalink mapping support 

Allow any characters to appear after circuit names of the 
form 'X25=xxx' 


v001 Tye Tim Halvorsen 27-Mar-1982 
Fix code to translate an NMA parameter code returned by 
a datalink driver validation error to a NFB code. 


WR OODONOUS WMO” 
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rf »SBTTL DECLARATIONS 
o} : INCLUDE FILES: 
rk SDEVDEF 3; Define device characteristics bits 
0 SDOVIDEF 3; SGETDVI item codes 

0 1 SDCDEF 3; Device classs definitions 

0 § SCCBDEF 3; Channel Control Block 

0 5 SCXBDEF ; Complex-chained buffers 

0 54 SUCBDEF 3 Unit Control Block 

000 36 SXMDEF ; XMDRIVER (general communications device driver) 

80 5 SNFBDEF 3; Network Function Block (ACP control Q10 definitions) 
it 8 SNMADEF : Network Management (NICE protocol) definitions 

000 5 VCDEF 3; DECnet Event Logging symbols 

0000 60 SCNRDEF ; Configuration Root block 

4 61 SCNFDEF :; Configuration data block 

000 ¢ SDEVTRNDEF ; Device translation (VMS vs. Nice protocol) info 
0000 6 SDLLQIODEF ; Data-Link Layer Q10 definitions 

44 ee SRCBDEF 3 peut ive Control Block (analogous to Volume Control 

: bloc 

$000 66 SLPDDEF ; Logical path Googe foter 

0000 67 SADJDEF 3 Kalaconce control block 

0000 68 SNETSYMDEF 3; Miscellaneous network symbols 

0000 69 SNE TUPDDEF : sraness used in private NETACP interface to NETDRIVER 
44464 oY SNSPMSGDEF ; DNA architecture definitions & message formats 
0000 ie 3 

0000 73 ; Macros 

0000 74 ; 
i464 75 

000 76 «MACRO SWAP,ARG1,ARG2 ; Swap arguments in-place 
0000 77 XORL ARG1,ARG2 
0000 7 XORL ARG2,ARG1 
0000 7 XORL ARG1,ARG2 
0000 80 ~ENDM 
0000 1 
0000 § 3 i 
9444 3 Define the following symbol to allow controller 1/0 functions on the DMC. 
0000 5 :DMC_MODEM = 0 

8506 

000 3 

$08 3 3; Define special CNF flags for each database 

000 90 : . / 3 

00000004 0000 91 PLI_V_NEW = CNFSV_FLG_MRK1 ; New PLI being built for first time 


~PSECT NET _PURE ,NOWRT ,NOEXE,LONG 


16-SEP-1984 01:15:07 VAX/VMS Macro v04-00 P 
ety 7 93:48:98 ENETACP.. SREINETCNFDLL MARS 1 


age 7 N 


The following macroes build a conversion table for pene counters 
) 


: into NICE format. Each counter i.d. contain is bit encoded contain 
3; formatting information as follows: 
ee MB BH 0 Bit 
> <1 >< width >< 0 >< counter i.d. > Field 
y SWIDTH.B = 1 |; Counter width specifier for bytes 
SWIDTH_W = ¢ ; Counter width specifier for words 
SWIDTH_L = ; Counter width specifier for longwords 
NETSC_NMACNT_SLZ = <1815>!<<$WIDTH_W>a13>!0 ; Seconds since last zeroed 


«MACRO SCOUNT_ENT base,nice,pre,mod,count width; 

eWORD = <<1815>!<<SWIDTH_"width'>a13>!- 
<NMASC_‘nice’_‘count'> 

WORD ‘pre'S*width'_'mod''count' - 


ase 
SCOUNT_ENT 


Insert table entry 


Counter flag, Counter width 
Nice counter i.d. 

Offset into internal structure 
minus internal structure base 


Create counter formatting table 
Insert table entry 


Terminate the table 


-ENDM 
«MACRO S$COUNT_TAB base,nice,pre,mod,list 3 
.IRP A, <List> : 
SCOUNT_ENT base,nice,pre,mod,A ; 
-ENDR : 
.LONG 0 ; 
-ENDM $COUNT_TAB 
LPD_CNT_TAB: :; Circuit counter formatting table 
SCOUNT_TAB LPDSL_ABS_TIM.CTCIR.LPD.CNT_.= 
<APR,L>,= ; Arriving packets received 
<DPS,L>,=- 3; Departing packets sent 
<ACL,W>,=- 3; Arriving congestion loss 
<TPR,L>,= ; Transit packets received 
<TPS,L>,=- ; Transit packets sent 
<TCL,W>,> :; Transit congestion loss 
<LON,B>,=- ; Line down oyents 
s <IFL,B>,=- ; Initialization failures 


X25_CNT_TAB: 


; X.25 native circuit counter formatting table 


oe 
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5 
5 
5 


5 
? 
8 


$COUNT_TAB 


PLI_CNT_TAB: 
SCOUNT_TAB 


"SrSEp= 198s 82:18:98 ENETACE. SAESNEvENFDLL.man;1 28° <8) 


Gurrentty only ‘'seconds ince last zeroed’ 
S$ maintained outside PSIAC 


; Line counter formatting table 


Currently only “seconds since last zeroed”’ 
is maintained outside the driver 


= TAMMOOM 2 BH KOH TOMMOODZ EF KOK TO MWMOOOZ SE KCK ITO WMMOOOZ Sr ACK TO MMIOO®W 


B 16 
atabase action routines 16-SEP-1984 01:15:07 VAX/VMS M 4- P o 
g Sentry Breer bbs Boilaste EMETACE. cae Imevewrocn.man;1 °° ¢2y 


vOes000* bee 
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$ Build @ table to driver the translation between mytwert Management (NICE) 
; device names to VAS devices names and to supply miscellaneous information 
; about known devices 


FFFFFFFF NMASC_LINPR_ = =1 ; Define protocol type for protocols 
3 not defined by the NICE protocol 
0000000F MAX_C_DEVNAM = 15 3 Maximum device name string 
3 (dev-c-u.t) 
«MACRO .devtrn netman,vms,type,prot,char ; Create table entry 
$$de Remember where we are 


Enter Net Man device mnemonic 
Advance to next field 

Enter VMS device mnemonic 
Advance to next field 


ytrn Se. 
eee ie "NE TMAN"’ 
- = $$devtrn + devtrn$b_vms 
omecie “ves"' 
-« = $$devtrn + devtrn$b dey 
«byte devtrn$c_dev_'TYPE 
. = $$devtrn + devtrn$b prot 
sbyte  nma$c_tinpr_'PROT' 
. = $$devtrn = devtrn$b_char 
-if nb,char 
«byte devtrn$m_"CHAR' 


Advance to next field 

Enter default protocol type 
Advance to device characteristics 
Enter device characteristics 


re 
SSoc. DOSS SOOSSOOOSSOSS > 


POPPI FQADIPINIPIPIPIPIPIPIPIPININIIANIININNY 
LRM MAOOOMOOOOOOOOOOO «FD 


SPINNING SF OWA DO OOMOOOOOAOAOMOOM 
A 


-devtrn <PCL>, <XP>, <PCL>, <MAS>, <> 
-devtrn <DAF>, <XG>, <DMF>, <POI>, <> 
edevtrn <CI>, <CN>, <CI>, <> < 
*devtrn <UNA>, <KE>, <UNA>, <NI>, <> 
“devtrn <PPUNA>,<_XE>,<PPUNA>,<POI>, <MULTI> 


$0 iff 

+ byte 0 
sendc 

09 . = $$devtrn + devtrn$c_length ; Advance to next table entry 

; »ENDM = .devtrn 

3 DEVTRN_TABLE: 3; Device translation table 
.devtrn <DMC>, <XM>, <DMC>, <POI>, <> DMC-11 
-devtrn <DMP>, <XD>, <DMP>, <POI>, <> DMP-11 

0 


PCL-11 

rset (combo board) 
UNA (Ethernet) 

Ph nde a orto: 9 UNA 


NAAN E Pnononororyg 


FAM OOD NDA NE WWIN OS OONA NE AN SO OD NAME WN O OD NOA UNE WIN O CO NAUE WO 


$$ QOD DOWOOO00 OOOO CO COO OO 0900 00909 09 0909 SI NI NINN SN NN NIOAOAAAO 


4 3 nternal only) 
4 ; ‘XE’ must be used to distinguish PPUNA datalinks from UNA datalinks, 
4 3 since they both use the same driver, and since matching of Lines and 
4 : and circuits is done by the VMS device name given here. 
4 -devtrn <QNA>, <XQ>, <UNA>, <NI>, <> 3; QNA (Ethernet) 
4 edevtrn <UE>, <XX>, <UNA>, <NID>, <> : 3COM UE sEcherngs) 
BA 4 -devtrn <DUP>, <>,  <DUP>, <LAPB>, <> 3; DUP-11 (for X. 
AE & -devtrn <DPV>, <>, <DUP>, <LAPB>, <> 3 DPV-11 (for X.25) 
4 -devtrn <KMX>, <>,  <KMS>, <LAPB>, <MULTI> 3 KMS-11 (for X.25) 
C 4 -devtrn <KMY>, <>, <KMS>, <LAPB>, <> 3: KMS-11 (for X.25) 
D 4 -devtrn <KMV>, <>, <KMS>, <LAPB>, <> 3; KMV-11 (for Xx ) 
f2 4 “devtrn <X25>, <NU>, <X25>, <>, <> : X25 DLM circuits 
EF 4 -devtrn <>, <>,  <UNK>, <>, <MULTI> ; Terminate the table 
FC 4 ; with foreign device 
FC 4 »ALIGN LONG 
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tables contain a List of parameters which need to be cleared 


Pa 1 
FDLL.MAR; 1 et 8) 


; ina given (PLI or CRI) CNF block before that block is process for a “‘show’’ 
5 0. The reason for this is thet the parameters are maintained only by the 
: device driver and the copy of this information stored in the CNF is stale. 
PLI_CLR_TAB: .CNFFLD pli,s.med ; X.25 microcode dump file Cwrite only] 
00000000 sites «LONG B 3; Terminate the table : 
CRI_CLR_TAB: -CNFFLD cri,l,pls i; Polling sub-state 
00000000 ‘tome 6’ : Terminste the table 


: The following table Lists those = parameters which must be processed by 
; PSIACP if the circuit is of TYPE X25. This table is used to build 
d PSIACP only needs to ‘‘know’’ 


CRI_PSI_TAB: 
~CNFFLD cri,L,STA 3; State 
-CNFFLD cri,l,USE ; Circuit usage 
-CNFFLD cri,l,TYP ; Circuit type 
-CNFFLD cri,l,CHN 3; Channel 
-CNFFLD cri,l,MBL 3; Maximum data 
-CNFFLD cri,l,MWl 3: Maximum window 
-CNFFLD cri,s,DTE 3; OTE 
9444 444 -LONG 0 3; Terminate table 
0000002 CRI_PSI_SIZ = . = CRI_PSI_TAB 


:; The following table Lists those PLI parameters which must be processed by 

; PSIACP if the Line is using PROTOCOL LAPB. This table is used to build x 
3 a control Q10 to send the parameters to PSIACP. PSIACP only needs to ‘*know 
; about the parameters Listed in this table. 


PSI_PLI_CLR_TAB: ; Params cleared before every SET function 
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.CNFFLD git Aout 3 Line substate 

LONG ; Terminate the table 
PLI_PSI_TAB: 

-CNFFLD pli,v,DUP ; Duplex 

-CNFFLD pli,v,.CON 3; Controller mode 

-CNFFLD pli, L,STA 3; State 

-CNFFLD pli,l,SUB ; Substate CSHOW only] 

-CNFFLD pli,l,PRO 3; Protoco 

-CNFFLD pii,L,HTl 3; Holdback timer 

CNFFLD pli, lt, MBL 3; Maximum block 

-CNFFLD pli,t,MRT 3; Maximum retransmits 

-CNFFLD pli, t,Mul ; Maximum window 

-CNFFLD pl:,l,BFN 3; Receive buffers 

-CNFFLD pli, L,RTT 3; Retransmit timer 

-CNFFLD pli,l,MOD ; X.25 mode (DCE, DTE, etc.) 

-CNFFLD pli,s.MCD : Microcode dump filespec (SET only] 
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r 
NETACP.SRCJNETCNFDLL.MAR; 1 
; Terminate table 
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Ba 


sLONS 0 
PLILPSI_SIZ = . = PLI_PSI_TAB 


Build the tables which drive datalink Q10 parameter translation. The 
; datalink Q10 parameter buffers are stored in NICE protocol format. 


ENVTABSC_INTRNL = “X3FFF ; Index = INTRNL means datalink only 
SVIELD CNVTAB,0,<- : Define conversion table enter 
<NMA,12,M>,=- ; NICE protocol param i.d. 
<RO,1,M>,- : Read-only flag 
<,3>,* : 3 spare bits 
<{NT314,M>,- ; Internal parameter index 


<FMT, 2,M>,- Parameter format (string,value,etc) 


> 


«MACRO .cnvtab nma,db,param,readonly=0 ; Insert parameter i.d. table entry 
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«LONG <<nma$c_'nma‘_‘param'> @ <cnvtab$v_nma>> - 
+ <'readonly' @ cnvtab$v_ro> - 
+ <<nfb$c_‘db'_‘param’ & nfb$m_inx> @ <cnvtab$v_int-nfb$v_inx>> - 
ae + <<nfb$c_'db’_ param’ & nfb$m_typ> @ <cnvtab$Sv_fmt-nfb$v_typ>> 
-MACRO .inttab nma,typ,.param ; Describe internal NMA codes 
; returned by datalink drivers 
«LONG <nma$c_‘nma'_‘param' @ cnvtab$v_nma> - 
+ <cnvtab$c_intrnl @ cnvtab$v_int> - 
+ <nfb$c_typ_‘typ’ @ cnvtab$v_fmt> 
-ENDM 
CRI_TRN_TAB: NICE-internal param i.d. translation 


-cnvtab pcci,cri,POL 
-cnvtab pcci,cri,PLS,1 
-cnvtab pcci,cri,TYP,1 
-cnvtab pcci,cri, TRI 
-cnvtab pcci,cri,BBT 
-cnvtab pcci,cri,TRT 
-cnvtab pcci,cri,MRB 
-cnvtab pcci,cri,MTR 
-cnvtab pcci,cri,ACcB 
-cnvtab pcci,cri,ACcl 
-cnvtab pcci,cri,1AB 
-cnvtab pcci,cri,IAl 
-cnvtab pcci,cri, IAT 
-cnvtab pcci,cri.DYB 
-cnvtab pcci,cri,DYI 
-cnvtab pcci,cri,DYT 
-cnvtab pcci,cri,DTH 
cnvtab pcci,cri,MST 


-LONG 0 


Polling state 

Polling sub-state ([CREAD ONLY) 
Protocol type CREAD ONLY 
Tributary station address 
Babbel timer 

Transmit timer 

Maximum receive buffers 
Maximum transmits 

Active base 

Active increment 

Inactive base 

Inactive increment 
Inactive threshold 

Dying base 

Dying increment 

Dying threshold 

Dead treshold 

Maintenance mode state 
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Terminate the table 


PLI_TRN_TAB: 


- RN NICE-internal param i.d. translation 
-cnvtab pcli,pli,BUS 


Receive buffer size 
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0 
00000000 


~— 


Pa19B6 02:18:18 UNETACE. SACINEYCNFDLL .MAR; 1 


>aza st 4 +0020 


Duplex mode 

Contre: ler (loopback) mode 
hate mode 

schedu ling timer 
Dead timer 


Number of buffers in pool 
Retransmit timer 
UNA hardware eadrese CREAD ONLY] 


; Terminate the table 
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-000 DECLA RATIONS -SEP-1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 (6) 
0000 ig -PSECT WNET_IMPURE ,WRT,NOEXE 
47 PLI 8. STATE: -BLKB 1 3; Device state 
00000000 Miittdait 4 ¢3 PLI-Q"DEVNAM: .QUAD 0 3 Device name descriptor 
00000020 9 DEVNAM_C_SIZ = 32 : Size of SEARCH key buffer 
| ; for Line and circuit names 
00000029 8 | 7 SRCH_BUF : -BLKB DEVNAM_C_SIZ ; Optional SEARCH KEY buffer 
00000000 B9000088 029 55 Q10W_Q_I10SB: -QUAD 0 3; General Q10W 10S8 
09000088 8 1 28 Q10W-wW RRETLEN: -BLKW 1 ; Return Length word for PSI Q10W 
00000000 tH ; TMP_G_BESC: -QUAD 0 ; Scratch descrirptor 
00000000 325 -PSECT NET_CODE,NOWRT,EXE 
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xx = Scan database -SEP=19 18:18 CNETACP.SRCIJNETCNFDLL.MAR; 1 
-SBTTL NETSSCAN_xxx = Scan database 


NETSSCAN_CRI = Scan CRI database 
NETSSCAN_PLI = Scan PLI database 


he LL 


xx 


4 
7) 


zt 
m 
39° 
now 
ne 


This co-routine is used to scan the database, and return to the cailer 
(co-routine) for each entry in the database. These routines establish 
the order of the database entries, above that of the natural ordering of 
the collating field. 


Inputs: 


R11 = Address of CNR 
R10 = Address of starting CNF (or 0 if to start at the beginning) 


OOQOOOOCQVOOOCOCSCOOOCOOoSooO }-— 
SOQOQCQCOQCOOOCOOOOOCOOCOCOoOOCOoOO 2: 
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i; 
92 3 
89 ; 
rt: ; 
is ; 
i 
i ; 
74; 
75; 
276 ; Outputs: 
278 3 R10 = Address of CNF if dialogue aborted prematurely, else 0. 
8 280 : roe gener receives control on each database entry in List (via co-routine 
3 call). 
000 286 3 
4 87 3; On input to co-routine: 
000 38 : RO = True if entry was found. False if at end of List (R10 invalid) 
000 386 ; R10 = Address of CNF entry found 
00 388 : On output from co-routine: 
000 590; RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
000 591 ; CNF$_TAKE _PREV Return previous CNF, abort dialogue 
000 238 3 CNFS$_TAKE_CURR Return current CNF, abort dialgoue 
4 32 3 C UIT Return no CNF (R10 = 0), abort dialogue 
000 595 : ex These routines must be abortable via a RET *** 
000 596 ;--- 
000 597 
000 598 NETSSCAN_CRI:: 
000 599 NETSSCAN-PLI:: 
FFFD' 31 0000 600 BRw DEF AULT_SCAN ; Use default scanner wi’h collating field 
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v04-000 NETSPRE_Q10. xxx - Pre-Q10 processing -SEP-1984 83:13:98 YNETACP. SREINEYCNFDEL..MAR: 1 - (8) 
6 6 § : -SBTTL NETSPRE_QIO_xxx - Pre-Q10 processing 
$ 4; NETSPRE_QIO_CRI = Perform pre-Q10 CRI database processing 
8 ? 5 ; NETSPRE_QIO_PLI = Perform pre-Q10 PLI database processing 
09 6 ; : This routine is called just after validating the NFB for a database 
op one : function to do any special pre-processing before the request is attempted. 
00 610 : Here, for cry and PLI databases, we reformat the search key into a standard 
4 611 ; format for Line ang girewit names, so that we don't get two database entries 
8 a : for DMC-0 and DMC-0.0, which should refer to the same entry. 
809 614 : Inputs: 
000 615 ; 
000 918 3 = Address of CNR 
000 617 ; NETSGQ_SRCH_KEY = percr iptec of search key value 
000 618 ; NETSGL_SRCH_ID = Field ID of search field. 
000 619 ; NET$GQ_SRCH2_KEY = Bescriptor of secondary search key value 
$003 ? ? ; NETSGL_SRCH2_ID = Field ID of secondary search field. 
9005 6 : ; Outputs: 
0008 624 ; NET$SGQ_SRCH_KEY = Reformatted search key value 
00 625 ; NETS$GQ_SRCH2_KEY = Reformatted secondary search key value 
o008 eon 
$008 628 NETSPRE_QIO_CRI:: : 
0003 629 SCNFFLD cri,s,nam,R9 : Get circuit name field i.d. 
- Soe 639 BRB PREQIO_PRI_CRI 3 Continue in common 
000C O36 NETSPRE_QI0 PLI:: : 
gs 63 SCNFFLD pli,s,nam,R9 3: Get Line name field i.d. 
001 634 ; Fall thru to common code 
0013 $3? PREQIO_PRI_CRI: 
01 63 : Rebuild SEARCH key if needed 
00000000’ EF 59 bt 0013 639 cmpL R9,NETSGL_SRCH_ID : Is the SEARCH key the name? 
57 QO000000°EF 7D O01¢ 641 MOVQ §NETS$GQ_SRCH_KEY,R7 > Get the SEARCH KEY descriptor 
53  00000009'EF 9E 002 ot§ MOVAB SRCH_BOF,R3 3; Point to the SEARCH KEY buffer 
00000000 ‘EF 23 CE bo¢h 64 MNEGL R3.NET$GG_SRCH_KEY :; Prepare for size calculation 
00000004 ‘EF 5 ° 0031 644 MOVL R3,NETSGQ_SRCH_KEY+4 3; Point to new SEARCH KEY string 
0040 3 8 8 645 BSBW REB D_NAME ; Rebuild the circuit name 
3¢ 23 E B o78 BLBC ’ : If LBC then error in name 
OO0OO0000'EF 5 co bie pots ADDL R3,NET$GQ_SRCH_KEY ; Calculate size of the string 
O45 649 : Rebuild secondary SEARCH key if needed 
00000000' EF 59 bt 045 631 10S: CPL R9,NETSGL_SRCH2_ID : 1s the secondary SEARCH key the name? 
: no 
57 Q0000000°EF 7D ef 38 mova NET$GQ_SRCH2_KEY,R7 ; Get the secondary search key descriptor 
53 0000009" EF 9E 5 654 MOVAB SRCH_BOF,R3S ; Point to the SEARCH KEY buffer 
Be 00° EF 53 C ¢ 655 MNEGL toa Ga_SRCH UKEY ; Prepare for size calculation 
0000004 ‘EF 06 6 $28 MOVL R5,NET$SGQ_SRCH2_KEY+4 ; Point to new SEARCH KEY string 
000E 6A 65 BSBW SséREB TLD _NARE : Rebuild the circuit name 
OA 5 E9 6D 658 BLBC RO,210$ ; If LBC then error in name 
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v04-000 NE SPRE. I10_xxx = Pre-Q10 processing -SEP-1984 HERE NETACP.SRCIJNETCNFDLL.MAR; 1 ge 08) | 


Dd n 
T Q 
er bbe 69 9 659 poet R3 NE TS6O SRCH2_KEY ; Calculate size of the string 


7 
7 6 100$: MOVL $*#SS$_NORMAL ,RO 3: Indicate success 
7A 661 2108: RSB ; Return status in RO 
Bt 
O78 oe? REBUILD _NAME : ; Rebuild the name to canonical form 
078 666 ; Rebuild the device name so that it is of the form: 
A 208 ; ‘devec-u.t’ or ‘dev-c-u' for multiplexed device types 
b078 676 ; ‘dev-c.t' or ‘dev-c' for non-multiplexed device types 
0078 626 ; 
20 57 v1 OOrB er EMPL «RT, MDEVNAM_C_SIZ Output it be LEQ j 
3; Output name w e nput . 
60 1A pore of? BGTRU 40$ pee : if e TRU unsigned then may evefion but 
st +4 er : Move the device mnemonic and Locate the device table entry 
3A «6330)=«—(008 679 6SBw PRS_MNEMONIC ; Parse name, locate the table ent 
5A50 £8 0083 880 BLBC ; : If LBC the error Te 
63 64 55 8 ot 44 on) MOVC3 R5,(R4),(R3) 3; Enter the Net. Man. device mnemonic 
008A $8 : If the name is of the form "X25-xxx'', then allow any remaining 
QO08A 684 ; characters to be accepted as is. The user must make sure that 
tN eH ; the name is spelled exactly the same for all requests. 
08 OA A6 91 OOBA 687 CMPB sd DEVTRNSB_DEV(R6) ,ADEVTRNSC_DEV_X25 ; X.25 circuit name? 
12 14 688 BNEQ 1$ 3; Branch if not 
83 2D 90 009 689 MOVB #*A''="" (R34 : Move delimiter 
63 68 57 $8 0093 690 MOVC R7, (RBS, (R3) 3; Copy in rest of name 
007331 9097 691 - BRW 90$ ; Exit successfully 
O9A 35 y : Move the controller i.d. -- suppress leading zeroes. If the device 
009A 694 ; is not a "MULTI-plexed’’ device then the units field may not be 
QO09A 695 3; present and the name may be end with the controller specifier field 
009A 8 69 ; or it may end with either the units field or the tributary field or 
QO9A 69 ; both. If the device is *MULTI-plexed’’ then the name must contain 
BRA o38 ; at least the units field following the controller specifier field. 
54 20 GA 009A 700 MOVZBL #*A"'="",RG 3: Setup the field delimiter 
83 4 90 0090 701 MOVB R4,(R3)+ : Enter it into the output buffer 
00 £0 OOA 108 BBS #DEVTRNSV_MULTI,- : If BS then multi-unit device 
14 0C A6 Ae 7 DEVTRNSB_CHAR(R6) , 108 ; 
50 57 7D OOA Pe MOVa R7,RO 3; Copy pene descriptor 
50 D7 OOA8 705 5$ DECL RO 3; Any characters left 
0D 19 OOAA re BLSS 10$ :; If LSS then no 
61 6p 91 OAC 70 CMPB #*a'’="",(R1) 3; Delimited by a ‘’="' ? 
8 13 QOAF oe BEQL 3; If EQL yes 
81 ef 91 081 70 CMPB Mea’. CRID+ 3; Delimited by a ‘’."' ? 
F 12 yee 710 BNEQ ; If NEQ then keep trying 
54 2— 9A 3 711 MOVZBL #*A"’."’,R4 ; Reset delimiter for parse 
134A 30 008 £1e 10$:  BSBW PRS DECIMAL : Get binary value of controller 
21 28 E9 OOBC 71 BLBC RO,40$ :; If LBC then error 
o F 714 TSTL ; Any decimal characters parsed? 
® 1 4 ee a} BEQL 40$ ; If EQL no, error in name 
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v04-000 NETSPRE_QIO_xxx = Pre-Q10 processing -SEP-1984 02:18:18 CNETACP.SRCIJNETCNFDLL.MAR;1 
50 3} be C rg MOVL R1,R0 ; Setup binary value to be converted 
FF37° C 4 BSBW © NETSBINZASC ; Convert to ascii and insert 
34 a ; Move the unit number <-- suppress leading zeros. 
E0 569 721 bes #DEVTRNSV_MULTI,- ; If BS then multi-unit device 
14 OC A6 ocB f : DEVTRNSB-CHAR(R6),50$_ ; 
te g : ; Single unit device -- verify unit number is zero but don't move it 
54 3 91 QOCE 7 § CMPB #*A"’."' RG :; Did we already rule out a unit field? 
13 $p} 7 BEQL ; If EQL then yes 
54 E 9A 00D 728 MOVZBL #*A'’."',R4 3 nt the field delimiter 
132D 30 00D6 729 BSBW PRS_DECIMAL ; Get binary unit number 
36 50 «4€9 0009 730 BLBC RO, T00$ ; If LBC then error 
51 05 O0DC 731 TSTL 1 ; ainage unit device, is it unit 0? 
18 13 QODE 7 § BEQL 70$ : If EQL yes, process tributary field 
30.=—«11 Boe 4 ? $08: BRB 100$ ; Else error in name 
Boe 4 2 : Device is a multi-unit device, move unit number field 
83 2D 90 OQOE 737 MOVB #*A''="", (R34 ; Enter prefix to unit number field 
54 2—E 9A OO0E 738 MOVZBL #*A‘’."',RG : oy the field delimiter 
1318 30 O0&8 739 BSBW  -PRS_DECIMAL : Get binary unit number 
2450 €9 OOEB 740 BLBC RO, T00$ : If EQL then error 
52 05 OOE 741 TSTL 3; Any decimal characters parsed? 
¢9 13 st oe BEQL 100$ ; If EQL then error : 2 
50 1 DO OOF 74 MOVL R1,R0 3; Get binary value for ascii conversion 
FFOB' 30 OOF ad aaa BSBW NETSBINZASC ; Move as ascii aR3 
SOr8 746 ; Process the tributary field. If this is the CRI database then move 
OOF8 747 ; the remainder of the name (unfortunately we cannot determine if a 
OOF 748 ; tributary specifier is valid for this device yet since we cannot 
OOF 749 3; determine for sure if the device is to be run in the multi-drop or 
Obe £39 3 point-to-point mode until Later on in the QI0 cycle). 
04 91 00F8 138 CMPB Ss #NFBSC_DB_CRI,- ; Circuit database ? 
OA AB OOFA 75 CNRSB~TYPE (R11) : 
O% 13 Ope 754 BEQL $ : If EQL yes 
, © Sere. rs TSTL R7 ; Else there must be no characters left 
10 12 0100 756 BNEQ 100$ ; If NEQ then illegal name 
an 102 757 80$ TSTL R7 ; Any characters left? 
a, 104 758 BEQL 3; If EQL no, return success 
83 E 90 106 759 MOVB, - #*A''."* (R3)4 ; Enter delimiter 
63 «68 28 01 760 MOVC3 RT, (RBS, (R3) : Enter remaining characters, update R3 
50 69" DO 010D 761 90$ MOVL S“#SS$_NORMAL ,RO ; Indicate success 
0 11 oH 166 BRB 110$ 3; Take common exit 
50 0000°8F 3C 011 764 100$: MOVZ¥L #SS$_IVDEVNAM,RO ; Indicate invalid device name 
05 011 765 110$: RSB ; Return status in RO 
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xxx = Pre=SHOW processing “SEP-1984 02:18:18 CNETACP.SRCIJNETCNFDLL.MAR; 1 (9) 


=. 


we CRP BLL - Datal 
v04-000 NETSSHO 


1} 4 7 -SBTTL NETSSHOW_xxx - Pre-SHOW processing 
11 ? ; ; NETSSHOW_CRI = Show Q10 pre-processing for CRI database 
ie aa ; NETSSHOW_PLI = Show Q10 pre-processing for PLI database 
11 re ; This routine is called for each CNF which is about to be returned 
11 773; to a “show 0. For the CRI and PLI databases, we must Upgere. 
11 774 ; the fields reflecting datalink driver status, by issuing a SENSEMODE 
11 775 ; Q10 to the driver, and taking it's current values for datal:nk parameters 
11 £76 ; and storing them into the CNF. This makes both the CNF and the driver 
11 777 ; consistent. 
3 a 3 
11 779 ; Inputs: 
011 £39 $ 
011 781 ; R11 = Address of CNR 
011 re¢ 3 R10 = Address of CNF 
S118 784 ; Output 
; Outputs: 
O18 785 “ 
0118 786; RO = Status code 
0118 787 ; 
0118 788; The CNF may be updated. 
0118 789; 
0118 790 
0118 791 NETSSHOW_CRI:: ; ''Show’’ Q10 pre-processing for one CNF 
55 saading * 43 0118 ad MOVAB  CRI_CLR_TAB,RS ; Get table of params to clear 
023E 3 site I? BSBW CLEAR_VOLATILE : Clear volatile parameters 
0132 oe ; If this is an X.25 circuit, then ask PSI for its parameter values 
0122 797 $GETFLD cri,l,typ ; Get type of circuit 
08 50 =«€9 Oi¢e 798 BLBC P ; Branch if not set 
03 58 »b1 01 ¢ 799 CMPL R8,#NMASC_CIRTY_X25 3 X.25 circuit? 
| me bis 800 BNEQ 5$ ; Branch if not 
0147 = 31 bis, a3) BRW GET_PSI_CRI ; Get current PSI parameter values 
Bisa 08 3: Issue SENSEMODE to driver, and store results in CRI 
FEC3" 30 O34 05 5$: BSBW NETSLOCATE_LPD ; Get _LPD associated with this CRI 
18 50 €9 013D 6 BLBC RO,10$ ; If EQL then none 
58 28 A6 9A 0140 07 MOVZBL LPDSB_PLVEC(R6),R8 ; Get PLVEC index 
a. Bee 08 BEQL 10$ : Skip if none assigned 
53 14 A6 C 146 09 MOVZWL LPDS$W_CHAN(R6) ,R3 3; Get 1/0 channel 
4  0000'8F C O14A 810 MOVZWL #10$_SENSEMODE ,R4 ; Get 1/0 function code ‘ 
56 0000016C'EF E O14F 11 MOVAB CRI_TRN_TAB,R6 ; Get table for NICE param translation 
46 11 136 \¢ BRB SHO_PLI_CRI ; Pre-process the CRI CNF block 
50 01 0 158 14 10$: MOVL #1,R0 3; Report success - return parameters 
0 3128 i RSB 
O15¢ 17 NETSSHOW_PLI:: ; ‘Show’’ Q10 pre-processing for one CNF 
55  OO0000FC'EF 43 136 18 MOVAB PLI_CLR_TAB,RS5 3; Get table of params to clear 
OFA 3 0165 19 BSBW = CLEAR_VOLATILE : Clear volatile parameters 
O16 : 3; If this is a LAPB Line, ask PSIACP for it’s parameter values 
S166 : $GETFLD pli, l,pro ; Get protocol parameter value 
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nk database action routines 16-SEP-1984 01:15:07 VAX/VMS Macro V04-00 Pa 1 
xxx = Pre-SHOW apg: iets 83; 3:98 nat ( 


NETACP.SRCIJNETCNFDLL .MAR; 1 


.5$ 3; If not specified, skip it 
4 * FNMASC _LINPR_LAPB 3; LAPB Line 
; ranch a¢° not 
GET_PSI_PLI ; Get current PSI PLI parameter values 
the datalink driver for it's parameter values 
CNFSW_ID(R10),RO ; Get PLVEC index 
If EQL — none assigned 
PLVECSAW_CHANCROJ,R3 i Get 1/0 channel 
#I0$_SENSEMODE! IO$M_CTRL.R4 ; Get Q10 function code 
PLI_TRN_TAB,R6 3 Get table for NICE param translation 
SHO-PLI-CRI 
#1,R0 ; Report success - return parameters 


a List of parameters from the driver 


Q10W_Q_10SB8 ; Init I0SB image ; 
~ ; Issue Q10 to get device info 


EFN = #NETSC_EFN_WAIT,=- 
CHAN = Rees 
FUNC = 
10SB = Btdw Q_10SB,- 
2 = #TMPBUF_DESC 
RO,1 ; if ts assume unsupported by driver 
a1 Ow Q 10SB ggeune , Yaryerertes by driver 


xmS$0_STS SaELIVE. Q10W_Q_ fosaes. fo0s Skip if datalink not active 


THe BUF _DESC+ : Point to parameter List 

JAM_CNF 3; Stuff the params into She CNF block 
3; Take common exit 

#1,R0 3; Report success 
; Return status in RO 
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v04-000 JAM_CNF = Store driver values into CNF -SEP-1984 02:18:18 CNETACP.SRCIJNETCNFDLL.MAR;1 (10) 
if rf -SBTTL JAM_CNF = Store driver values into CNF 
if és 3; JAM_CNF = Store datalink driver parameters into CNF 
1E 65 ; This routine updates the CNF with the Latest and greatest parameter 
if $8 3; values from the datalink driver. 
1E 68 ; Inputs: 
1E +4 3 
1E 0; R11 = Address of CNR 
1E 71 ; R10 = Address of CNF 
1E ie 3 R6 = Address of datalink-NICE translaticn table 
1E 73; R4 = Address of buffer returned by SENSEMODE 
HY Me ; Q10W_Q_10SB = IOSB from SENSEMODE operation 
O1E8 6 ; Outputs: 
O1E8 7? ; 
O1E8 ve 3 RO = Status code 
01E8 79 ;:- 
O1E8 80 -ENABL LSB 
O1E8 7 
O1E8 8 § JAM_CNF : 
00000000 ‘EF DD O18 88 USHL NETSGL_FLAGS ; Save current flags 
Bree See CLRBIT NETSV_CNFLCK,NETSGL_FLAGS ; Allow update of cond. write fields 
bite He ; Jam the values from the Q10 buffer one at time into the CNF block. 
0000002B ‘EF BS O1F6 888 10S: TSTw Q10W_Q_10SB+2 ; Any params left? 
66 13 O1FC 889 BEQL 110$ 3; If EQL we're done 
70 48610 O1FE 890 BSBB TAKE_2_10SB : See if we have two bytes left 
59 84 3C O 9 4 MOVZWL (R4)F,R9 3; Get NICE protocol param i.d. + type 
55 3 ° 020 35 MOVL R6,R5 3 Point to translation table 
1136 630 0206 89 BSBW = CV T_NMA_INT ; Convert NMA i.d. to internal i.d. 
2c 50 «=€6—€&9)«=—(0209 94 BLBC R : If LBC then not found 
02 59 02. 10 ED 0 0C 895 CMPZV #NFBSV_TYP,ANFBSS_TYP,R9.#NFBSC_TYP_STR ; Is it a string ? 
OA 1 if 44 BEQL 50$ : If EQ yes 
6 1 B36 ; It's a longword 
8 1 99 ; 
57 04 00 1 900 MOVL #4,R7 ; We'll take 4 more bytes 
5B «10 16 901 BSBB TAKE_R7_10SB 3; Deplete I0SB count 
58 4 DO 0218 90 MOVL (R4)F,R8 ; Get the value 
;- 18 90 BRB 3; Continue 
1D 904 3 
1 44 : «It's a string 
"6CF 1D 907 50$: 6sBB TAKE_2 joss 3; Account for count field 
7-7; ® «6S 1F 908 CVTWE «= (R4) FR : Get string size 
45 1 : 909 BLSS 1208 : If LSS then string is too long 
58 3 D 910 MOVL R4,R8 ; Point to string 
54 re) 2 7 911 ADOL R7,R4 : skip over it 
S ae A aig BSBB TAKE_R7_10SB 3; Deplete bytes for string 
3FFF 8F 8659 81 C 913 60$: CMPW RO ,#CNVTABSC_INTRNL ; Datalink only parameter? 
c3 3 1 914 BEQL : If so, just ignore it 
FDCA’ 30 3 6915 BSBW CNFSPUT_FIELD : Store it in the CNF 
6 3i$ : Ignore errors - field might be R/O 
BE 11 6 91 BRB 10$ ; Loop through all parameters 


a as SSS a a 


TAKE_2_10SB: 
MO 
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V -000 JAM_CNF = Store driver values lene CNF gr SE b= 19 4 ERE NETACP.SRCINETCNFDLL.MAR; 1 . fd) voc 
| 
91 : 
: 4 ; Parameter is not found i tables, skip it if present in buffer 
| 0000002B'EF 5 6 8 921 70$: fstw alow Q1osB+2 ; Deplete bytes 
0B 59 #OC £0 7 4 ¢ BBS #12,R9780$ ; Br if string value 
| : 
| 0 4 é ; It's a longword 
57 04 00 4 926 MOVL #4,R7 ; We'll take 4 more bytes 
sf 10 024 927 BSBB TAKE_R7_10SB 3; Deplete IOSB count 
54 4 9 0247 928 ADDL #4 RG ; Skip valued parameter 
| FFA9 31 aA 3 3 BRW 10$ : Get rest of buffer 
es 931 : It's a string 
024D 336 : 
21-10 Oe4p 933 80$:  6SBB  TAKE_2_10SB ; Account for count field 
57) 8432 (OR4F = 934 CVTWL = (R4) FR? ; Get string size . 
15 19 bS2¢ 935 BLSS 120$ ; If LSS then string is too long 
54 57 CO 0254 936 ADDL R7,R4 : skip over it 
1A 10 0257 937 BSBB TAKE_R7_10SB8 ; Deplete bytes for string 
FF9A = 3331 os2e 4 8 BRW 10$ ; Get rest of buffer 
QOO00000'EF 8EDO 3¢26 940 100$: POPL NETSGL_FLAGS ; Restore flags — 
05 o$e7 2 1 RSB ; Return status in RO 
50 1 D0 0264 9 : 110$: MOVL #1,R0 ; Return success 
here | 0267 3 , BRB 106$ 
F 3C 0269 946 120$: MOVZWL #SS$_RESULTOVF ,RO ; Indicate buffer error 
ape th3 947 SRB 100$ 
027 948 
0270 949 
57 02 3¢€ 0270 £950 ZWLE  o#2,R7 . Setup bytes to take 
0273 951 TAKE_R7_10SB: 
QOOOO0OO2B'EF 57 A2 0273 9 ¢ SUBW R7,Q10W_Q_I0SB+2 ; Deplete bytes 
04 18 O27A 9 BGEQ © 206$ : If GEQ then okay 
BE D5 O27C 954 TSTL (SP) + ; Pop caller's return address 
E9 11 O27E 955 BRB 120$ ; Exit with buffer error 
05 0280 956 200$: RSB 
0281 957 
0281 958 
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/ V04-000 GET_PSI_xxx = Get current PSI parameter set Ti 2:18:18 (CNETACP.SRCINETCNFDLL.MAR; 1 ° d 
| 360 .SBTTL GET_PSI_xxx = Get current PSI parameter values 
1 306 ; GET_PSI_CRI = Get current PSI circuit parameter values 
8 5] oe7 ; GET_PSI-PLI = Get current PSI Line parameter values 
0281 965 ; This routine is called to get the current PSI parameter values 
0281 966 ; from it's database, and store them in ours, so the SHOW function returns 
0281 967 ; the sum of both databases. 
0281 968 ; 
| 0281 969 ; Inputs: 
0281 970; 
0 8] 971 ; R11 = CRI CNR address 
| 0281 4h 3 R10 = CRI CNF address 
0281 973; 
0281 974 ; Outputs: 
0281 975; 
0281 976; RO = status 
0281 977 ;:- 
0281 978 GET_PSI_CRI: 
0281 979 3 
0281 980 :; If this is a PVC, then 9° ahead and ask PSI. If it's a 
0281 981 : incoming or outgoing SVC, then don't bother, since PSI 
S++ abe : doesn't know anything about them. 
0281 984 $GETFLD cri,l,use ; Get USAGE parameter 
05 50 €9 O28E 985 BLBC RO, ; Branch if not set - defaulting error 
00 58 D1 0291 986 CMPL R8,#NMASC_CIRUS_PER 3; PvC? 
04 13 0294 987 BEQL 108 : If not, then exit successfully 
50 DO 0296 988 5$ MOVL #1,R0 ; Do nothing 
05 344 989 RSB 
029A 990 : 
BSaa 44 : Issue a SHOW function to PSI for its circuit parameters 
OSe4 993 10$: $CNFFLD cri,s,nam,R9 ; Set field ID of circuit name 
0697 30 02A1 99% BSAW SEND fO_PSI : Call co-routine to setup NFB, etc. 
1F 50 E9 O2A4 99 BLEC)~=—s—- R00, 90 ; Branch if error detected 
66 22 90 O2A7 996 MOVB #NFBSC_F SHOW NFBSB_FCT(R6) ; Set function code 
3C 6 BB «C(O2AACCéCO PUSHR #*M<R ™ > : Save registers 
O2AC 998 ASSUME NFBSC_ENDOFLIST EQ 0 : NFB terminator and PSI_TAB are same 
62 0000010C "EF ¢0 28 O2AC 999 MOVC #CRI_PSI $1Z,CRI_PSI_TAB,(R2) ; Copy in the field IDs 
C BA ogee 1000 POPR #*M<R2,R3,R4,R5> ; Restore registers f 
| 52. 20 A2 9E 0286 1001 MOVAB CRI_PSI S17(Re) .R2 3; Increment field ID list pointer 
53 00000200'8F CO O2BA 1006 ADDL #P4BuF _SIZE,R ; Set size of P4 return buffer 
43 1 8 C1 190 JSB a(SP)+ ; Call SEND_TO_PSI back to issue QI10 
2— 5 E C3 1004 BLBS RO, STORE_PSI_PARAMS ; Branch ok 
05 02C6 1005 90$: RSB : Return with error 
02C7 1006 
8 C7 1007 GET_PSI_PLI: 
C7 1008 : . . 
8 cf 1998 5 Issue a SHOW function to PSI for its Line parameters 
O2c7 1011 SCNFFLD plixs nam,R9 ; Set field ID of circuit name 
30 O2CE 1 1 BSBW Nd_fo_PS : Call co-routine to setup NFB, etc. 
1F 50 2 Di 101 BLBC RO,9 ; Branch if error detected 
66 0 D4 1014 MOVB ayfesc FC. sHOw NFBSB_FCT(R6) ; Set function code 
BB 02D7 1015 PUSHR #*MCR27R3,R4,R5> ; Save registers 
D9 1016 ASSUME NFBSC_ENDOFLIST EQ 0 =: NFB terminator and PSI_TAB are same 
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g-$60-1 988 1:15:07 VAX/VMS Macro v04-00 
xx = Get current PSI parameter -SEP-1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 
MOVC #PLI_PSI SET PGs PST TAB. (Re) ; Copy in the field IDs 
POPR #°M<R2,R3,R4,R5> ; Restore registers 
MOVAB PLI_PSf S12 (Re) .R2 : Increment field ID List pointer 
oR 3; Set size of P4 return buffer 


ADDL #P4BurF SIZE 
J a(SP)+ ; Call SEND_TO_PSI back to issue QI10 
BLBS RO,STORE_PSI_PARAMS ; Branch if ok 

90$: RSB ; Return with error 


STORE_PSI_PARAMS: 
: Copy the parameters returned by PSI into our database 


Skip past string 
Store the parameter 
Loop thru all parameters 


MOVQ ~—s_ RT, RG ; Make copy of result descriptor 
MOVAB NFBSL_FLDID(R6) ,R6 ; Point to field ID list 
PUSHR #*M<R9> ; Save registers 
PUSHL NETSGL_FLAGS ; Save AC ee 
CLRBIT NETSV_CNFLCK,NETSGL_FLAGS ; Allow update of cond. write fields 
20$: MOVL (R6)+,R9 ; Get next field ID 
BEQL 80$ : Branch if end of list : 
CMPZV #NFBSV_TYP,#NFBSS_TYP,R9,A#NFBSC_TYP_STR ; Is it a string? 
BEQL 30$ ; Branch if so 
SUBL #4 ,R4 ; Decrement buffer space left 
BLSS 70$ ; Branch if not enough space returned 
MOVL (R5)+,R8 ; Get longword value | 
BLSS 208 ; Branch if ‘cleared’ 
BRB 50$ ; Store paramter 
30$: SUBL #2,R4 ; Decrement space left 
BLSS 70$ ; Branch if not enough space returned 
MOVZWL (R5)+,R7 ; Get length of strin 
BEQL 208 ; Branch if ‘cleared’ 
SUBL R7,R4 ; Decrement space left 
BLSS 70$ ; Branch if not enough space returned 
MOVL R5,R8 ; Point to start of string 


50$:  BSBW  CNFSPUT_FIELD 
B 20$ 


Set overflow status 


80$: MOVL #1,R0 

90$: MOVL RO,R1 : Save final status 
POPL § NETSGL_FLAGS : Restore ACP flags 
POPL 3; Point to scratch storage 
JSB NE TSDEALLOCATE ; Deallocate SHOW buffer 
At R1,R0 ; Restore final status 


roe Gh 
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v04-000 CLEAR_VOLATILE = Clear List of volatile SEP=1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 ( 
8 6° } a -SBTTL CLEAR_VOLATILE = Clea List of volatile parameters 
8 t ! oF ; CLEAR_VOLATILE = Clear List of volatile parameters from a CNF 
rt 1 a ; This routine is called with a List of perpnetere to be cleared so 
8 1071 : that stale data is not kept ta a CNF block. 
60 1 a i ; Inputs: 
60 107 : 
0360 1074 : R11 = Address of CNR 
0360 1075 : R10 = Address of CNF 
0360 1976 : : R5 = Address of List of longword parameter IDs 
0360 1077 ; 
0360 1078 ; Outputs 
0360 1079 : 
0360 1080 : None 
0360 1081 ;- 
0360 108¢ tLe EAR_VOLATILE: 
59 85 00 S544 1083 10$: MOVL (R5)+,R9 ; Get next parameter i.d. 
05 13 0363 1084 BEQL $ ; If EQL then none left 
FC98" 30 0365 1085 BSBW CNFSCLR_FIELD : Clear param in CNF, ignore errors 
F6 11 0368 1086 BRB 10$ ; Loop 
05 036A 1087 20$: RSB 
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NETSDEFAULT_CRI = Apply default values -SEP-1984 02:18:18 CNETACP.SRC CIN NETCNFDLL.MAR; 1 ° (9%) VOé 
re } a -SBTTL NETSDEFAULT_CRI = Apply default values 
re } a4: ; NETSDEFAULT_CRI = Apply default values to selected CNF parameters. 
8 6B 1 3g : 3; This reser? is called by CNFSINSERT just prior to validating a CNF | 
6B 1094 : — which is to be inserted into the database. Its purpose 4s to 
8 re 1036 ; supply default values to selected parameters. | 
0368 1097 : INPUTS: R11 CNR pointer 
8 68 1098 : R10 CNE pointer 
36B 1099 ; 
te a ; OUTPUTS: R11 CNR pointer 
0368 1101 ; R10 CNF pointer 
0368 Vi0¢ 3 r RO Status code. 
0368 110 : 
0368 1104 ; ALL other registers contain garbage. 
0368 1105 ;- 
0368 1106 NETSDEFAULT _CRI:: 
FC92" 30 0368 1107 sBQ NETSAPPLY_DFLT : Apply standard table defaults 
O36E 1108 S$GETFLD cri,s,nam ; Get descriptor of circuit name 
103F 30 0378 1109 BSBW PRS_MNEMONIC ; Locate the table entry 
75 50 ~+€9 Sa7e 1119 BLBC RO, TO$ 3; If not found, assume a a 
0381 1iN¢ s Ff tt - circuit type is not the detayit rk and the name 
0381 111 ; =the form X25-x, then apply the def aul, 25 circuit parameters 
tt} V3 : (including setting it's type to ' 
08 OA A6 91 0381 117 CMPB ss DEVTRNSB_DEV(R6) , ADEVTRNSC reve X25 Is. circuit X25-x? 
6F 12 0385 7°. BNEQ 0$ ; Tf not skip 
56 OO000000'EF 9E 0387 MOVAB NET$G_CRI_X25,R6 3 S, address Pat * 425 circuit defaults 
! FC6F' 30 O38 BSBW NETSTABLE~DFLT : Apply the default values ad 
0391 © : If he USAGE is INCOMING or OUTGOING, then assume that 44 
0391 i.C : ircuit is to be used for X. 25 datalink mappi ng. since 
ra) 0391 1123 ; e users of X.25 circuits don't ever set incom ng o 
ed bi Se 3 ou going circuits. 
at) 26 $GETFLD cri,l,use ; Get USAGE parameter 
1A 50 £9 039 3? BLBC sO, 58° : If not set, skip it 
QO3A1 1128 veeataahiny RB, <- ; Based on Usage, 
O3A1 1129 MASC_CIRUS_INC,4$>- ; If incoming 
O3A1 1130 <NMASE™ “CIRUS-OUT,4$>> ; or outgoing then set DLM on 
10 11 O3A9 1131 BRE i Else, § i 
58 01 00 o3Ae 1136 4$: MOVL ; Set “'t 
bane VW32 SPUTFLD +m 4 dim : enka XK. *35 datalink mapping 
0388 1135 ; If X.25 datalink mapping is enabled, then apply the Transport 
0386 1% § : defaults. 
Ha 1138 5$: $GETFLD cri,v,dlm : Is X.25 datalink mapping enabled? 
5150 €9 O3¢ 1139 BLBC = RO. BOS : Branch if not 
4E $8 ©£9203CB 1140 BLBC OR | 
56 00000000'EF 35 0 33 1141 MOVAB NET$G_CRI _DLM,R6 ; Get address of DLM defaults 
FC28" 3 D 1148 BSBW NETST TABLE~DFLT : Apply the default values | 
08 114 $GET ; Get circuit usa e 
02 58 D1 O3ES 1144 CHPL ORB UAE cxmus. out ; Outgoing circuit? 
28 «12 O3€8 1145 BNEG 208 : Skip if not 


NE TCNFDLL - Datalink database action routines 16-SEP-1984 01:15:07 VAX/VMS Macro V04-00 Page NE! 
“Vb4=000 NETSDEFAULT CRI - Apply default values g- -SEP- 1384 83 2:1 18:98 NETACP. Sa CINETCNFDLL.MAR; 1 ’ (3) vOé 
56 vance * 3 EA 1196 MOVAB NETSG_CRI_DLMOUT,R6 ; Get address of outgoing DLM defaults 
FCOC' F1 114 BSBW BRST ABLE “DFLT : Apply the default values 
™— ve fe 1128 BRB ; then apply Transport defaults 
§ re 1329 : If it's a NI circuit, then apply the appropriate defaults 
09 OA A6 91 § F6 1188 10$ CMPB 9 ‘a DEV(R6), #DEVTRNSC DEV_UNA is My an NI circuit? 
e) 12 O3FA 115 BNEQ ; Tf not, ski ip i 
56 00000000' 9E grr 1154 MOVAB Ne TSG CRI_NI,R6 ; Get address of ‘wt circuit defaults 
FBFA' 30 040 1155 BSBW WETSTABLE. DFLT 3; Apply the default values 
13 Be 88 1128 BRB ; Apply Transport defaults as well 
9) 0408 1138 : For DDCMP circuits, apply another set of default values 
56 O0O000000'EF 9E 0408 1199 15$: MAVAB NET$G_CRI_DDCMP,R6 ; Get address of DDOCMP circuit defaults 
FBEE' 30 Rove 119] W NETSTABLE_DFLT ; Apply the default values 
a 1168 : For circuits used by Transport, then apply the Transport defaults. 
rs) 56 OOO00000'EF 9E 041 1165 20$: MOVAB NET$G_CRI_TRN,R6 ; Get address of Transport defaults 
FBE4" 30 0419 1166 BSBW NETSTABLE “DFLT ; Apply the default values 
50 1 DO O041C 1167 80S: MOVL #1,R0 3 eters successful 
OS O41F 1168 RSB 2) 
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v04-000 NETSDEFAULT_PLI = Apply default values -SEP-1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 (14) 
r 0 1120 ; -SBTTL NETSDEFAULT_PLI = Apply default values 
? 1126 : NETSDEFAULT_PLI = Apply default values to selected CNF parameters. 
400 1174 ; This routine is called by CNFSINSERT just prior to validating a CNF 
4 1175 ; entry which is to be inserted into the database. Its purpose is to 
r 8 1128 ; supply default values to selected parameters. 
4 0 1128 : INPUTS: R11 CNR pointer 
: 8 1123 5 R10 CNF pointer 
4 : 1181 ; OUTPUTS: R11 CNR pointer 
4 11 ¢ 3 R10 CNF pointer 
Be 8 1 ? : RO Status code 
be 8 Vee : ALL other registers contain garbage. 
04200 1187 NETSDEFAULT PLI:: 
FBDD' 30 04 ! 1188 NETSAPPLY_DFLT : Apply standard table defaults 
04 1189 SGETFLD pt 2S,nam ; Get descriptor of Line name 
OF8A 30 0430 1190 BSBW RS_MNEMONIC ; Locate the table entry 
0150 €8 0433 1191 BLBS RO, TOS : If found, proceed 
05 beso 1138 108 RSB ; Else, not found 
0437 1194 . : If the protocol is not specified yet, stuff it's default value 
bees 1138 3; based on the Line name nmemonic. 
0437 1197 $GETFLD phi L,pro ; Was protocol explicitly specified? 
0D 50 £80444 1198 BLBS 0,20$ : If so, don't change it 
58 0B A6 9A 0447 1199 MOVZBL DEVTRNS$B_PROT(R6) ,R8 ; Get default protocol type 
F 8F 33 2 pene 1300 core R8,A#NMASC_LINPR_ 3 fs there e default protocol? 
3; Branc no 
FBAC' 30 bead 1308 BSBW CNFSPUT_FIELD ; Store the protocol into the CNF 
0454 1204 : Based on the type of Line protocol, apply a different set of 
beee 1503 ; defaults for each type. 
OA A6 91 «0454 1207 208: CMPB DEVTRNSB_DEV(R6) ,- : Is this a ‘‘point-to-point’’ XE? 
OA 0457 1908 #DEVTRNSC_DEV_PPUNA 
3C¢ )=—:«13—«0458 )=61209 BEQL 50$ : If so, use NI defaults 
045A 1210 SGETFLD ph L,pro : Get Line protocol type 
4E 50 €9 0467 1211 LBC 0,80$ : If none, then no defaults 
046A 1 \¢ SDISPATCH R8,<- ; Based on Line protocol, 
046A 121 <NMASC_LINPR_POI,30$>- ; DDCMP Point-to-point 
re a 1214 <NMASC_LINPR_CON,30$>- ; DDCMP Controller station 
046A 1215 <NMASC-LINPR-TRI,30$>= ; DDCMP Tributary 
046A 1 1g <NMASC_LINPR_DMC,350$>- ; DDCMP DMC compatible mode 
046A 121 <NMASC~LINPR7LAPB 40$>- ; X.25 LAPB preteces 
046A 1218 <NMASC-LINPR-NI,50$>>  : Ni protoco 
3A O11 fA: ' i? BRB ; If none of the above, then skip it 
O47 1 : Apply DOCMP defaults 
5@ 00000000°EF, 9F O47E 1 3 308:  MOVAB NET$G_PLI_DDCMP,R6 ; Get address of DDCMP defaults 
FB78" 3 4 1224 BSBW NETSTABLE_DFLT ; Apply default values 
2€ 11 " : ' 2 BRB 80$ 


| a 
NE TCNFDLL D se action routines P-1984 : vo 
-000 T l 4 TC 


- etal ink database a "eres 8413302 eles Macro v04-00 Page 4 
Vv NETSDEFAULT_PLI = Apply default values -SEP-19 2:18:18 CNETACP.SRCINETCNFDLL.MAR; 1 (14) 
: . ! 7 ; Apply LAPB defaults 
56 00000000'EF 33 48A 1 : 40$: MOVAB NETSG PLI_LAPB,R6 ; Get address of LAPB defaults 
i | 9 3 491 1230 BSBW WETSTABLE_OFLT ; Apply default values 
2 11 et 1231 BRB 80$ 
496 1 ¢ H 
Bee } f ; Apply NI defaults 
56 00000000'EF 43 S496 1235 508: MOVAB NETS$G_PLI_NI,R6 ; Get address of NI defaults 
FB60" 3 0444 ! § BSBW NETSTABLE_DFLT ; Apply default tables 
tag 1238 ; For NI Lines, add the ‘‘hardware address’ parameter at this time, 
4A0 1239 ; $o that there is enough space reserved in the CNF block for future 
4A0 1240 ; replacements of the value by the datalink layer. Initially, it 
04A0 1241 ; will have the value of 6 bytes of binary zero. This is done here 
bead ists ; because the defaulting tables don't handle string defaults. 
7E 7C O4A0 1244 CLRQ = =(SP) ; Zero 8 byte buffer 
57 06 00 Q4A2 1245 MOVL #6,R7 ; Set Length of string to 6 bytes 
58 5E 00 Q4A5 1246 MOVL SP,R8 : Point to buffer of 8 null bytes 
04A8 1247 $SPUTFLD pli s,hwa : Allocate space for NI hardware address 
5E 08 CO 0485 1248 AD #8,5P ; Deallocate buffer 
50 01 DO 0488 1249 80$ MOVL #1,R0 ; Return successful 
05 04BB 1250 90$ RSB 
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Woe -000 NETSIMSERT_CRI = Pre-insertion processin 5-SEP-1984 t $3; 718: % NETACP.SRCINETCNFDLL.MAR; 1 ° (33) 
rt}: } 26 -SBTTL NETSINSERT_CRI = Pre-insertion processing 
| ist ! gi ; NETSINSERT_CRI = Insert CRI entry into database 
| 48C 1 g: ; This routine is called to validate a CRI CNF entry before inserting 
48C 125 ; it into the database. 
48C 1 28 3 
| 48C 125 : Inputs: 
4BC 1260 ; 
4BC 1261 | R11 = Address of CNR 
46C 1 86 : R10 = Address of CNF 
4BC 12635 ; 
4BC 1264 ; Outputs: 
048C 1265 : 
048C 1266 : RO = Status code. If error, entry is not inserted. 
O4BC 1267 ;- 
Q04BC 1268 NETSINSERT_CRI: 
7E D4 O4BC 1269 CLRL SP) 3; Scratch space on stack for STATE 
50 Q000°8F 3C OQ4BE 1270 MOVZWL WSS$ INSFARG,RO ; Set error if pacenetes not present 
04C€3 1271 SGETFLD cri,[,sta : Get the operator sta 
03 50 0400 1 tg BLBS §$ : Error if not sirendy. defaulted 
009A 1 0403 127 BRW 3; Exit with status 
6— 58 Bes ! fe 5$: MOVL R8, (SP) ; Save new STATE value 
et $4 1376 3 If STATE=SERVICE, then make sure that SERVICE is ENABLED. 
0409 1596 $GETFLD +4, v,ser : See if service functions are enabled 
OF 50 E9 Q4E6 1279 BLBC 0,10$ ; Branch if parameter not set 
0c 58 E9 Q4E9 1280 BLBC Re. : If LBC then ‘'service’’ state is legal 
50 00000000'8F DO O4EC 1281 MOVL #SS$ _BADPARAM,R : Assume state is ‘service’ 
02 6€ D1 O4F3 1 Be CMPL = (SP) SANMASC ASTATE SER ; Is it? 
ve. 43 nore \ee? BEQL 2008" ; if so then conflicts with <cri,v,ser> 
04F8 158? ; Make sure that the circuit name is valid 
O4F8 1286 : 
50 D4 O4F8 1287 10$: CLR RO 3; No default error status 
O4FA 1288 SGETFLD criss vmsnam ; Check if circuit name is valid 
66 50 €9 0507 89 BLBC 0, 3008 : If LBC then error 
OSOA 1291 : if the of ireuls type associated with this CNF is X25, then ship 
OSOA 1 38 ; . k.2 specific circuit parameters to PSIACP via a control Q10 
OSOA 129 : he Q10 succeeds, then allow the CNF to be inserted. In 
B20A ! 3¢ ; viakoe case, we do not oartern any datalink processing. 
S204 1296 ScerFLD cri -: Get circuit type 
05 50 €9 0517 1297 3; If_error, assume not X.25 
03 58 01 S1A 1298 BLPL RB. a36 oe CIRTY_X25 3: X25 circuit? 
gh 13 051D 1299 BEQL 28$ : Branch if so 
A OD QSIF 1 9 25$: PUSHL R10 ; Save pointer to current CNF 
5A 56 0 521 1301 MOVL R6,R10 3 Point to old version of CNF 
i1€ 1 05 61 08 BEQL 6$ : Branch if non 
5 g 130 SGETFLD ents t gtyP 3; Get old sireutt typ 
0—E 50 €9 O5 1304 BLBC RO. 66 : If error, assume Msi not X.25 
03 58 =»b1 Q5 3 1 b CMPL R Me _CIRTY_X25 : Did it used to be X25? 
9? 12 05 1 $ BNEQ : Branch if not 
50 0000°8F 3C¢ Q5 ; 1 8 MOVZWL 1 aaa aaa : Do not allow type change w/o CLEAR 
5A BEDO 0540 1308 POPL R1 ; Restore current CNF 
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NE TCNF DLL - Dat k abase action routines 16-SEP-1984 01:15:07 VAX/VMS Macro Vv04-00 Page 3 
v04-000 NETS$I Ne - Pre-insertion processin or SFE = o8c CREE NETACP.SRCIJNETCNFDLL.MAR; 1 . 3) 
05 RSB ; Return = do not allow inserti 

5A 8EDO 268: POPL R10 ; Restore current CNF ¥ if 

18 #11 BRB 50$ ; and allow Transport to use it 

¢8 10 28$: BSBB CRI_TO_PSI ; Tell it to PSIACP 

22 50 =€9 BLBC RO, 2008 :; Exit if error detected 


For X.25 circuits, do not initialize the circuit if we Raven” i 
been granted ownership of it t by the network manager. 

prevents the circuit irom being used both by native mode X. 25 
users and by Transport. 


298: § 
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GETFLD cri,v,DLM ; X.25 datalink mapping enabled? 
0c 50 LBC 0.608 :; If not set, do not use this circuit 
09 58 LBC R8,60$ ; If disabled, do not use this circuit 
3 Call trenspert to init circuit 
: Signal datalink control module that the CRI has been changed 
58 D0 50$:  MOVL (SP),RB ; Get STATE value 
FA99' 30 BSBW NETSOLL _OPR_SET ; Signal operator event 
06 50 €9 BLBC RO,200 :; If LBC then error 
; Start counter timer ticking 
FA93" 30 60$: Bsey NETSSET_CTR_TIMER ; Reset automatic counter timer 
50 01 00 #1,R0 3; Indicate success 
8E D5 200$: Tstt (SP)+ ; Cleanup the stack 
05 RSB ; Return status in RO 
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v04-000 CRI_TO_PSI = Send CRI parameters to PSIA 5-SEP-1984 84:43:82 NETACP.SRCJNETCNFDLL.MAR; 1 ” (16) v6 
27 ] i -SBTTL CRI_TO_PSI = Send CRI parameters to PSIACP 
32 4] ; CRI_TO_PSI = Issue SET of CRI parameters to PSIACP 
2f ! ‘8 ; Send the CRI parameters that PSIACP cares about via a ACP control QI0. 
573 1345 : Inputs: 
57 1346 : 
0573 1347; R11 = Address of CNR 
0573 1348 ; R10 = Address of CNF 
a 
3 s 
bap3 jay 5 CutPU 
0573 1 26 3 RO = Status code 
0573 13535 :- 
0573 +1354 
0573 1355 CRI_TO_PSI: 
0573 1356 3 
828 1327 ; Check if required parameters are present 
50 0000°8F 3C 0573 1359 MOVZWL #SS$_INSFARG,RO :; Set error if peconstee not present 
0578 1360 S$GETFLD cri,[,use ; Check if USAGE parameter specified 
66 50 +€9 p263 130) BLBC RO, 90$ 3; If not, error - must be specified 
0588 1308 3 If this is an socentne SVC, then make sure that NETACP is 
0588 1308 ; declared (to PSI) as being able to accept incoming calls 
0588 1365 ; since PSI might not have been up earlier to receive the 
Ft 1308 ; declaration when the SUBADDRESS parameter was set. 
01 58 01 0388 1368 CMPL = RB, HNMASC_CIRUS_INC : Incoming SVC? 
1¢ 12 0588 1369 BNEQ 3; Branch if not 
0cOO 8F BB O058D 1370 PUSHR #*M<R10,R11> 3; Save registers 
5B O0000000'EF D0 0591 1371 MOVL NETS$GL_CNR_LNI,R11 : Get LNI root address 
5A O00000000'"EF D0 0598 $56 MOVL NET$GL_PTR_LNI,R10 3; Get LNI CNF address 
FASE’ 30 OS9F 137 BSBW NETSDECLARE PSI : Declare ourselves to accept calls 
0COO 8F BA OSA2 1374 POPR #*M<R10,R115 ; Restore registers 
45 50 €9 B2a8 132? $3 BLBC RO,90$ 3; Exit if error detected 
O5A9 1399 : 3 If this is a PVC, then 9° ahead and tell PSI. If it's a 
O5A9 1378 ; incoming or outgoing SVC, then don't bother, since PSI 
Bang 1380 3; doesn't need to know about them. 
00 58 01 O3a9 1 Hi CMPL = RB, ANMASC_CIRUS_PER : PVC? 
4012 3AC ss BNEQ 908 : If not, then exit successfully 
SAE , : Send the request to PSI 
one 1 if $CNFFLD cri,s,nam,R9 : Set field ID of circuit name 
9583 30 0585 138 BSBW SEND fo_PS1 ; Call co-routine to setup NFB, etc. 
3 39 9 0588 1 oe BLBC BR ; Branch if error detected 
66 2 0 0588 1 MOVB #NfBSC_FC_SET,NFBSB_FCT(R6) ; Store function code 
55 QOO0010C°EF 9 28f 1390 MOVAB cn PST TAB,RS 3; Point to PSI circuit parameters 
59 ~—s «BS 09 5CS5 1391 10$: MOVL (R5T+,R9 ; Get next parameter ID 
$$ 1 5c8 1 3 BEQL 50$ :; Branch if end of table 
FAS3° 3 SCA 139 BSBW CAF SGET FIELD ; Get the parameter value | 
F5 50 =~2CC 5CD 1394 BLBC RO,10$ : Skip ‘f f it doesn't exist 
82 59 pO 0500 1395 MOVL R9,(R2)+ ; Store into NFB 
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alink database action rete. 1 1 AX/VMS Macro V04-00 Page NE} 
_'O_PSI = Send d cri parameters to PSIA - 35-1 382 83: 18: % ENETACE. SRC JNETCNFDLL.MAR; 1 " 3) v6 
ED D3 (1 CMPZV euresy TYP oNrass. TYP,- ; String or binary? 
bg 1339 #NFBSC_fYP_S 9 y 
1 D8 1 : BEQL ; ¢" i Branch if string | 
ts \? 4 povl . ere ; Store lenguore nto P4 buffer 
BO DF 1401 20S: MOVW R ; Store string count word 
4 BB Ee 14 ; PUSHR Ce “Ack rR R5> ; Save regist sters 
7 5E4 14 MOVC ras RBS, (R3) ; Store string text 
4 BA QS5SE8 1404 POPR i Ac ha. aS > ; Restore res sters 
9 11 QSEA 1405 BRB 1 
E 16 OSEC 1406 50$: JSB a(SP)+ ; Call SEND_TO_PSI back to issue Q10 
05 OSEE 1407 90$: RSB ; Return with Status 


a a 


NETCNFDLL 
v04-000 


389° 
Pro 
— oe 
zo 
“=x 


N 
ayebege tion vemines SEP-1984 01:15:07 VAX/VMS Macro V04-00 P 3 
- re-insertion processin "gr ee 138 HERE INETACP. SRCIN ETCNFDLL.MAR; 1 mame i?) 


zt 
mm 
nn 
mw, 
zs 
ee 


: -SBTTL NETSINSERT_PLI = Pre-insertion processing 
; NETSINSERT_PLI = Insert PLI entry into database 


: This routine is called to validate a PLI CNF entry before inserting 
; it into the database. 
: Inputs: 


R11 = Address of CNR 
R10 = Address of CNF 
R6 = Address of previous version of CNF (zero if none) 


Pa Se ae oe oe ee ee ee 
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} 9 
10 
1218 
1414 
} 5 
ie 
OsEF 1219 
Oser 1254 
b2e 1? § Outputs: 
be Fe 2: RO = Status code 
i: 14 $ NETSINSERT_PLI:: 
bee 1? 4 ; Get new value of STATE parameter. 
OSEF 1430 ScerFLp pti sta ; Get the operator state 
OOOOOO00'EF 58 90 Bah : 1 8, bLicG B_STATE Save state value 
0603 14 § ; If the gt associated with this CNF is LAPB, then ot 
0603 1434 : the f 2 c line parameters to PSIACP via a control Q10. 
0603 1435 : it’e he aro" succeeds, then allow the CNF to be inserted. 
pete 1038 : sakes case, we do not perform any PLVEC or datalink processing. 
0603 1438 ScerFLp Bo ists L,pro ; Get protocol type 
12 50 €9 bets 1439 LBC : If_error, assume not X.25 
05 oe } Bet? 1208 chPL R8 o38 _LINPR_LAPB 3 — nepeees 
; Branc n 
0206 30 0618 1a6g BSBW PLI_TO_PSI ; If so, send it to PSIACP 
06 50 33 061B 144 BLBC R 3 Branch if error detected 
FODF® 30 OQ61E 1444 BSBW NETSSET_CTR_TIMER ; Start/reset automatic counter timer 
50 01 DO 0621 1445 MOVL #1,R0 3; Set successfu 
05 0624 1446 24$: RSB : Exit with status 
5A DD 0625 1447 25$: PUSHL R10 ; Save pointer to current CNF 
5A 56 00 0627 1448 MOVL R6,R10 : Point to old version of CNF 
1E 13 062A 1449 BEQL  26$ : Branch if none 
62C 1450 $GETFLD pli,l,pro ; Get old protocol set 
OE 50 E9 0639 1451 BLBC " :; If error, assume s at m x.25 
05 58 vb 063C¢ 1436 CMPL R8 .#NMASC_LINPR_LAPB 3; Did it ygee. se be 
09 12 O63F 145 BNEQ 3 to ifn 
50 O000°8F 3C 0641 1454 MOVZWL #SS$_WRITLCK,RO ; Do not slies protocol change w/o CLEAR 
5A 8EDO 268 1455 POPL R10 ; Restore current CNF 
05 0649 1456 RSB ; Return - do not allow insertion 
5A 8EDO tty \e2t 268: POPL R10 ; Restore current CN 
64D 1238 : Locate the PLVEC index tor this PLI. If there is none then 
770 1299 3; assign and initialize a PLVEC entry for this PLI. 
54 12 AA 3C 064D 146¢ MOVZWL cue Su 1D(R10) ,R4 ; Get i.d. (PLVEC index) of this entry 
40 15 651 146 BNEQ : If NEQ then its valid 
9047 3 653 1464 BSBW ALLOe PLVEC ; This is a new PLI, set it up 
38 50 €9 0656 1465 BLBC RO,298 : If error then simply exit 
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Llow only if He to one of: 
= 4h ; Phase IV routing 
att: _PTY_PH4N,28$>,- ; Phase IV endnode 


> 


<ADJ$C "PTY AREA, 28$>> 
MOVZWL #sss BADP ARAM, RO 
43 FFLD D PLE T,pro,R9 


Phase IV area routing 

; Else, illegal protocol 
Indicate parameter in error 
; Exit with error 


50 Q000'8F 3C¢ 
38 «611 


k base 

TL t - Pre-insertion processin 5-SEP-19 UNETACP, SRCINETCNFDLL.MAR; 1 (17) 

SETBIT PLI_V ney ab FLG(R10); In ie PLVEC ee —— l igned 

01 90 MOVE. #NMKSTNS S Init per st wae iene) 

00000000'EF 44 PLUECSAB™ STATECR4I Setup. on undefined stete velue 

; If this is an NI driver, then make sure that ie executor 

: type is Phase IV, since Phase III doesn't support 

: broadcast circuits. 
09 O0000000°EF44 91 twp p VECSAB _DEVER4],ADEVTRNSC_DEV_UNA ; NI device? | 
24 «12 BNEG : Branch if not 
50 QO000000'EF 00 MOV ort $GL_PTR_VCB,RO Get RCB address 
50 008A CO 9A MO VZB L RCB$B ETy(RO), RO Get executor ty | 
SDISPATCH R | 


Issue the Line control Q10 t 5 some the driver with the control 
information. The I0$ STARTUP and IO$_SHUTDOWN modifiers are 
illegal unless there 7s a state change. 


30$: hovzaL -_ STATECR4],-(SP); Save old state value 


OOoOooooooooooooooOooooooooo 2a 
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RNIN MOOD DODOO0OSO0 O00 OOOO OO 000000 09 00 0900 09 09 09 SIN NSIS SIN NINIOOA OO <a 
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D4 0698 ; Clear illegal I/0 modifier mask 
OOO00000'EF 91 069D CHEB PLI_B_S ; Are old and new state value the same? 
00000000" EF 44 06A3 BCVECSAG. STATECR4] : 
05 12 O6A9 BNEQ 0$ : If NEQ then state change 
0000'SF BO Q6AB MOVW #10$M_STARTUP!- 3; Specify unwanted 1/0 modifiers 
51 O6AF 108M SHUTDOWN, R1 : 
QOO00000'EF 90 0680 40S: MOVB PLI_B-STATE ; Setup new state value | 
00000000" EF 44 06B6 ~PCVECSAB. STATECR4] : 
068 SCNFFLD pt s,chr,R9 3; Set field i.d. | 
52 O0000000°EF44 3C 06C MOVZWL PLVEC$AW_CHANCR4],R2  : Get channel 
0176 30 06CB BSBW NETSSET_G10W ; Issue set characteristics Q10 
51 DO O6CE MOVL R1,R9 3; Return 2nd IOSB longword as well 
OOOOO000'EF44 8E& F6 06D1 CVILB) « (SP)+,PLVECSAB_STATECR4]; Restore original state 
12 50 £9 06D9 BLBC =. RO. 1068, : If LBC then error 
00000000'EF 90 06DC MOVB PLI_B STATE,- : Setup the new state value 
00000000" EF 44 O6E¢ “PrVECSAS, STATECR4] ; 
bees 3; Start counter timer ticking | 
F915° 30 bers 6sBw NETSSET_CTR_TIMER ; Reset automatic counter timer 
50 O01 00 pees MOVL #1,R0 3; Set successful 
: 
O6EE $ i? oe PLI is not new then simply return the status in RO. If 
eed 3 PLI is new then the newly allocated PLVEC slot must be 
Bece : Seatlscenes if RO indicates an error. 
04 €5 O6E 100$: @6BCC #PLI_V_NEW ; Br unless PLVEC has been newly 
0B 0B AA 6F ENF SB_ FLG(R10),1108 : assi igne ed | 
08 50 €8 O6F BLBS RO,110 : then no clean-up needed 
50 D ore PUSHL RO 3 Mh error code 
0608 QO O6F BSBW pa A PLVEC 3; Free the PLVEC cell 
50 8EDO O6FB POPL R ; Restore status 


BeBe 


NeTSINSERT PUI 


2 
- Pre-insertion processin 
05 O6FE 1523 110$: RSB 


C 
base action routines 


"SrSEb=9BS G2: 18:18 ENETACE. SRESNEYC 


; Return status in RO 
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v04-000 ALLOC_PLVEC = Setup PLVEC entry for new “SEP=1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR; 1 (18) 
Bere 13 5 -SBTTL ALLOC_PLVEC = Setup PLVEC entry for new Line 
Bere 1 ; ALLOC_PLVEC = Setup a new PLVEC entry for a new PLI entry 
QO6FF 1529 ; Inputs: 
6FF 1530; 
OFF 1531 ; R11 = Address of CNR 
6FF 15 ¢ : R10 = Address of CNF 
6FF 1533; 
pore 1534 ; Outputs: 
6FF 1535 ; 
pore 15 $ ; RO = Status code 
6FF 1537 ;- 
O6F F 13¢8 
O6FF 1539 ALLOC_PLVEC: ; Initialize a new PLVEC entry 
50  Q000°8F 3C OQ6FF 1540 MOVZWL #SS$_INSFMEM,RO ; Assume no resources for this entry 
54 QOQ00000'EF 9A 0704 1541 MOVZBL PLVECSGB_MAX,R4 ; Else no i.d. yet, get max PLX index 
QOO00000'EFS4 95 B78 1366 10$: TSTB PLVECSAB_REFCCR4) : Is this cell free? 
06 13 O712 154 BEQL ; If EQL then yes 
F454 =F5 0714 1544 SOBGTR R4,10$ ; Loop -- index 0 is not used 
31 0717 1545 19$: BRw 106$ ; Report ‘‘resource error’ 
12 AA 54 B60 O71A 1546 20S: MOVW R4,CNFSW_ID(R10) 3; Use PLVEC index as PLI i.d. 
OOOO0000'EF4SS 96 14; 1547 INCB eT eh ae ; Claim the PLVEC cell 
OOOOO000'EFS4 B84 0725 1548 CLRW PLVECSAW CHANCR4] ; No channel assigned yet 
50 0000°8F 3C¢ ort 1549 MOVZWL_ #SS$_NOSOCHDEV,RO ; Assume error 
0731 1550 SGETFLD Ba $,nam : Else get the Line name 
d6 50 £9 O73 1351 BLBC 0,19$ : Branch to 100$ if cannot translate it 
0741 1383 ; Get the VMS name of the device and the device code. Assign an 
5904 1328 : 1/0 channel to the device and squirrel away the device code 
5E 17 C2 0741 1556 SuBL #MAX_C pres. ; Create scatch space on stack 
53 08 ag 9E 0744 1557 MOVAB 8(SPY,R ; Point to scratch space for name text 
se 2 CE 0748 1558 MNEGL R3,(SP) ; Bias count field of name descriptor 
04 AE 53 DO 0748 1559 MOVL R3,4(SP) ; Enter ptr field of name descriptor 
OCIA 30 O74F 1560 BSBwW TRAN_DEVNAM ; Translate device name to VMS format 
0752 1561 ; * advances R3, table entry -> R6 
2— 50 3 075 1396 BLEC RO,40$ ; If LBC then error 
50 0000'BF 3c 0755 156 MOV2WL #SS$_IVDEVNAM,RO : Assume error p> 
57 05 O75A 1564 TSTi R?7 3 Any unparsed\Neracters? 
25 12 QO75C 1565 BNEQ 40$ ; If NEQ yes, name format error 
54 12 AA 3c 6075 1298 MOV7WL CNFSW_ID(R10),R4 ; Recover R4 
OA AG 9 D752 156 MOVE  DEVTRASB_DEV(AS),- ; 
00000000'EF 44 976 1368 PLVECSAB_DEVER4] =; Enter device type code 
6 3 C8 745 1 8 ACOL R3, (SP) ; Complete device name descriptor 
5 sr of 2 0 MOVL SP, ; Point to it 
7 1571 SASSIGN_S - ;_ Assign an !/0 channel 
771 4 re CHAN = PL YECSAW_CHAN(R4J,- 
771 «+157 DEVNAM = (R3) 
5E 17 c8 783 1574 408: ADOL #MAX_C_DEVNAM+8, SP ; Restore stack 
4D 5 § 786 «1575 BLBC p » if Us then error 
50 saa 9.419416 08 tip C 789 «3376 MOVZWi PLVECSAW_CHANER4? RO ; Ger 1/0 channel 
00000000'GF 1 791) 3377 se G*1OCSVER ‘7 YCHAN ; Return CCB in R1 regard'ess of error 
61 OD 797 «137% MOV: CCBSL_UteiRi),- ; Store device UCB 
00000000 'EF 44 he 7% PEVECSAL_UCBCR4) 
SE 06 «C2.«OO79F 158) SUBL #4, SP ! Use stack for device characteristics 
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Point R3 at r buffer 
Sormiante GETDVI Teen list 
Point to result length word 
— + A DEVCHAR return "bul fer 
Size of DEVCHAR result buffer 
Point to item List 

Get device characteristics 

Use synchronous event flag 


Pop item List 
Branch if error detected 


Assume error 
Br if not a network device 


Pre-allocate (and deallocate) the receive buffers for the datalink 


his is done here before 


invoking the driver so that the pool expansion mechanism can be used 
expansion can't be done on the interrupt stack in the datalink driver. 


; Get datalink receive buffer size 
; If not set, skip it 

; Add in datalink's overhead 

; Get number of Line receive buffers 
; Wasn't defaulted properly - skip it 
; Terminate List of allocated blocks 
; Set size of block to allocate 

; Allocate from nonpaged pool 

; If error, give up 

; Save block address 

; Loop until all allocated 

; Get next buffer address 

; Branch if all blocks dosilecated 

; Deailocate the bloc 

; Loop until all Slecks cleaned up 

; Success 

; Return status in RO 


Save error code 


; Deassign the 1/0 channed 


Restore error code 
And exit 
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NE TCNFDLL - Datalink database action routines 19736-1388 93:1 
v04-000 ALLOC_PLVEC = Setup PLVEC entry for new =-SEP-1984 02: 
53 5 DO O7A2 1 : MOVL SP,R3 : 
0 DD O7A5 1 PUSHL @# : 
00000031 "EF 9F O7A7 1584 PUSHAB QJOW_W_RETLEN 3 
3 DD O7AD 1585 PUSHL : 
7E 02 BO O7AF 15 $ MOVW #DVI$_DEVCHAR,-(SP) : 
7E ge BO Q7B2 15 MOVW #4,-(SP) : 
51 E dO 0785 1588 MOVL SP,R1 3 
788 1589 SGETDVI_S [TMLST=(R1),- : 
788 1590 EFN=#NETSC_EFN.WAIT,- _; 
788 1591 CHAN = PLVECSAQ_CHAN ANCR 4]; 
SE 14 CO 07D 139¢ ADDL #5%4,SP : 
453 133 3 
55 50 3 706 1594 498: BLBC : 
50 0000'BF 3c 0709 1595 MOVZWL Reet? O DEVNAN RO : 
4¢ 63 OD O7DE 1596 BBC #DEVSV_NET,(R3),1208 —; 
O7E 1597 ; 
O7E 1598 ; 
4: 1223 ; driver from the system nonpaged pool. 
OFS 1601 ; in case there isn't enough pool, It is done here because pool 
BrEs 1606 ; 
O7E2 1603; 
O7E2 1604 SGETFLD pists L,bus : 
38 50 €9 O7EF 1605 BLB 3 
55 58 0000004C 8F C1 O7F2 1606 BCs RO 708 OVERHEAD ,R8,R5 5 
O7FA 1607 $GETFLD pti L,Bfn : 
20 50 €9 0807 1608 BC 70$ : 
7E D4 OB80A 1609 CLRL = (8) ; 
51 55 pO O80C 1610 50$: MOVL 3 
00000000'EF 16 OBOF 1611 JSB OP TSALONPAGED ; 
05 50 =6—€9 «0815 lolg BLBC RO,60$ 3 
52 DD 0818 161 PUSHL R : 
EF 58 F5 OB81A 1614 SOBGTR R8,50$ F 
50 8EDO O081D 1615 60$: POPL RO 3 
08 13 bB5s 1616 BEQL 70$ 3 
00000000 ‘EF 16 08 1617 JSB NETSDEALLOCATE 3 
co (oe OeSR 1618 BRB 0$ 
50 =~—01 DO O82A 1619 70$: MOVL #1,R0 s 
05 082D 1620 100$: RSB 3 
082E 1621 
O82E 16 ¢ 120$: : 
O82E 16 ; DEASSIGN the channel on error 
82E 1624 
50 oD 8 ; 1625 PUSHL RO : 
te § SDASSGN_S - 
0830 16 CHAN = PLVECSAW_CHANLR4): 
50 8EDO O83F 1628 POPL RO : 
E9 11 0842 1629 BRB 1008 : 


; om 
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. -SBTTL NETSSET_QIOW = Issue datalink SETMODE function 
> NETSSET_QIOW = Issue datalink SETMODE function 


This routine is called when a Line or circuit is to be initialized 
with a SETMODE function. 


Inputs: 


NETCNFDLL * bat 
v04-000 NETSS 


“+ 
| et all 


0 


ddress of CNR 

ddress of CNF : ‘ 

rameter ID for CHR field, which returns DLLQIO buffer 
annel to datalink driver 


o— 
nu 
so r>,r 


0/R1 = 1/0 status quadword . 
9 = Parameter ID qualifying error, if any. 


NETSSET_QIOW:: 


DS DS DS DS DS DS OS DS DS DS TT BB BS BB EE EIN III 


DOO OA APAEAAPAAPA AA AMINE SLL LLP LLL LLP LLLP EEE 1 
NOUS WR OOD NA UNE WIN 9 OD NAUNE WIN HO OD NAME WIN OC OO NAUSEA OOONOUE Win 


DOOOCOCOOCOCCOOCOGOOCOOCSOOSGOOOO OOOO OOOCOOOOCOOOOOSOOOOOOOOoO Ma 
tA et t+ +t 4-4-4 t-te ha Sete tet ot 9 9-994 4-949-444-9499 
Sem s monn ane DSMDNUMIMMOODHLLLLLL LLL LLL LLL LLL ESSE OF 


: Log the final status into the journal file, if any 


a ee ee ee ee ee ee ee a ee a dd ad od CEO 
DEA AAEAAAAAAAAAAAAAAAA AAA AAA AA AA AA AA AA AA AA AA AA AAAAAAAAAA AO 


50 O000'8F  3¢ “MOVZWL = #SS$_NOSUCHDEV,RO ; Assume error 
30 BSBW CNFSGET_FIELD ; Get datalink DLLOIO buffer 
E9 BLBC RO.100$ ; If LBC then error é 
CA BICL R1,0LLQIO$L_FUNC (R8) ; Mask out illegal 1/0 modifier bits 
DS TSTL DLLQIO$L_P1TR8) 3; Any P1 buffer ? 
13 BEQL 5$ : If EQL no : 
co ADDL R8,DLLQIO$L_P1(R8) ; Else turn offset into a pointer 
DS 5$: TSTL DLLQIO$SL_P2TRB) ; Any P2 buffer ? 
13 BEQL 10$ : If EQL then none 
Pad ‘ co ADDL R8 ,DLLQIOSL_P2(R8) ; Turn offset into a pointer 
} DO MOVL DLLQIOSL_P2TRB) RO : Point to P2 buffer descriptor 
4 co ADDL R8,4(RO) ; Turn offset into a pointer | 
10S: $Q10W_S - ; Set the device charactersitics 
EFN = #NETSC_EFN_WAIT,- 
TOSB = Q10W_0-10S6,- 
Ci‘AN = R2,- 
FUNC = DLLQIOSL_FUNC(R8),- - 
P1 = @aDLLQIO$C_P1(R8),- 3; This is a PUSHAL 
7 P2 = DLLGLOSL Be (RB) .- 
7 P$ = DLLQIOSL—P3(R8) 
07 50 =C«EB 7 BLBS RO,20$ : Branch if queued ok 
Q0000029"EF 50 00 7 MOVL RO,Q10W_Q_ 10SB ; If error, store status into 10SB 
59 oppognen “Ef DO 74 208: MOVL gow Q_ToSB+4,R9 ; Get remainder of JOS 
00000804 8F 3 oF ' aa R #AMASC_PCLE_PHA 3 Ms +4 address’? 
: oO, 
59 00000488 8F 00 7 MOVL #NMASC_PCLI_HWA,R9 3; then map it to ‘hardware address" 
881 7 3; (so that we see it at the NICE level) 
0A70 §=63—30 «60881 79 228: BSBW NETSCVT_NMA_INT ; Convert NMA parameter i.d. to an 
4 8 ; internal parameter i.d. 
3FFF BF 659 ~—s«BI 4 8 CMPW RO ,#@CNVTABSC_INTRNL ; Datalink only parameter? 
-” Ve 9 BNEQ 25$ ; Branch if no 
59 0000002D'EF a4 0 MOVL Q10W_Q_10SB+4_,R9 : If so, I'd rather see the NMA code 
50 00000029°EF 7D 25$:  MOVG Q10W70710SB,R6 : Get 1/0 status 
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58 8 3 C9 16 § tke ge RO, gow FUNC (R8) ,R8 ; Pass 1/0 ye Bie code into journal 
00000029' EF 0 D cf 1689 100$: g 1086 : Save final s 
F72A° 30 DS 1690 BSBM arty NX 3; Initialize Journet ting co-routine 
10 50 52 + V691 BLBC RO,1 Oen ; Branch if not enabled 
44 BF 0 D9 “69 MOVB #°X44,(R1)+ 3; Journal record a = Q10W completion 
81 2 80 DD 169% MOVW RB, (RI) + : 1/0 function co ode 
81 Cho O2orEF 7D OBEQ 169% MOV Q10W d_10SB,(R1)+ ; 1/0 status quadw 
16 E? 169 JSB a(SPpy+~ : }09 the fournat ting record 
50 00000029" EF (3 3 1996 120$: yh Q10W_Q_10SB8,R0 ; Sloss inal status 
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‘a 
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PLI_TO_PSI: 


10$: 


20S: 


H 
se action routines 
PLI parameters to PSIA 


7:18:18 t 


Address of CNR 
Address of CNF 


RO = Status code 


PLI_CLR_TAB,RS 


*(R2)+ ; 
FBS$V_TYP,#NFBSS_TYP,- 
#NFBSC_TYP_STR 


Sete Se Ge 


1:15:07 VAX/VMS Macro v04-00 
NETACP.SRCJNETCNFDLL.MAR; 1 


¢ -SBTTL PLI_TO_PSI = Send PLI parameters to PSIACP 
PLI_TO_PSI = Issue SET of PLI parameters to PSIACP 
; Send the PLI parameters that PSIACP cares about via a ACP control QI10. 


Get table of params to clear 
Clear volatile parameters 
Set field ID of Line name 


Call co-routine to setup NFB, etc. 
; Branch if error detected 
NFB$B_FCT(R6) ; Store function code 


Point to PSI Line parameters 
Get next parameter ID 
Branch if end of table 


String or binary? 


:; Branch if erring 
; Store longword into P4 buffer 


Store string count word 
Save registers 

Store string text 
Restore registers 


Call SEND_TO_PSI back to issue Q10 


Return with Status 


t é 
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v04-000 SEND_TO_PSI = Send control Q10 to PSIACP ~$FE 1 38 2:18:18 CNETACP.SRCINETCNFDLL.MAR; 1 me (21) 
2 4 17%] re ~SBTTL SEND_TO_PSI = Send control Q10 to PSIACP | 
2 ; 1248 3 SEND_TO_PSI = Send ACP control Q10 to PSIACP 
8 B 1745 ; This routine is called to transmit an ACP control function to PSIACP | 
938 108 ; on behalf on a local CNF, such as a LAPB line. CNFS Like these are 
93B 1747 ; “‘known’’ about by both NETACP and PSIACP, NETACP in order to perform 
2 4 rte : network management functions, and PSIACP in order to manage the Line. 
0938 1750 : Inputs: 
0938 1751: | 
4 B 1736 $ R11 = Address of CNR 
0988 178% ib @ ddivcen ot peruesteh 0 deaartoinn want’ 
: = ress of parameter ribin 
Oote 15e¢ p e esc g entity name 
0938 1736 ; Outputs: 
0938 1757; 
a4 1758 ; RO = Status code 
N 0938 1759 ; 
Bees 1769 ; If the function code is NFBSC_FC_SHOW or NFBSC_FC_ZERCOU, then: 
0938 176¢ ; R7/R8 = Descriptor of result P4 buffer 
0938 1763 ; R9 = Address of scratch storage, which should be deallocated 
Base 1786 ; when processing of the P4 buffer is completed. 
0938 1266 : R1-R6 are destroyed. 
093B 1767 ; 
0938 1768 ; This routine makes a co-routine call back to the caller after setting 
0938 1799 ; up the NFB and associated control QI0 buffers, so that the caller can 
0938 1770 ; fill in the essential fields. When the caller returns via co-routine 
a4 aa! 3; cail to this routine, the control Q10 is issued to PSIACP. 
0938 1598 > On input to co-rcutine: 
0938 1774; 
0938 1775; si = Address of NFB 
0938 1776; R3 = Address of P4 buffer 
0938 1777 ; R2 = Address of NFBSL_FLDID List 
093B 1778 ; 
093B 1779 ; On return from co-routine: 
093B 1780 ; 
0938 1781; R3 = Updated pointer to end of P4 buffer 
bate iz ¢ : R2 = Updated pointer to end of FLDID List 
0938 1784 : RO-R1,R4-R5,R7-R9 may be destroyed by co-routine. 
$8 ee | 
00000088 0935 17 2 NFB_SIZE = NFBSC_LENGTH + 30%4 ; allow for all PSI field IDs 
00000066 09 1788 P2BOF_SIZE = 4+27DEVNAM_C_SIZ+NFBSC_CTX_SIZE ; P2 holds CNF count and entity ID 
0938 1789 3 pivs context area 
00000200 $4 8 1730 P4BUF _SIZE = 512 ; P4& holds all parameter values 
03 ; 1738 ASSUME PLI_PSI_SIZ LE 30*4 ; Must be enough room for PLI params 
$36 1794 SEND_TO_PSI: 
51 032A 8F 3C 0938 1795 MOVZWL 9 #12+NFB_SIZE+P2BUF_SIZE+P4BUF _SIZE,R1_; Set size of block overhead 
ot 1298 5 p uS NFB, P2 and P4 buffer sizes 
O00000000°EF 16 0940 179 JSB NETSALLOCATE ; Allocate the storage 


J 2 
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v04-000 SEND_TO_PSI = Send control Q10 to PSIACP ety 7 833} 18:18 CNETACP.SRCINETCNFDLL.MAR;1 ’ 
01 50 946 1798 BLBS RO,5$ : Branch if successful 
fe 348 1799 RSB 3; Else, exit with error status 
5 pp 94A 1800 5$ PUSHL R 3; Save address of block 
56 OCA E 3e8 1801 MOVA 12(R2) ,R6 3; Point to screuen NFB 
66 10 90 6— 0 gf 950 1 § MOVC #0, (SP5 ,#0,#NFBSC_LENGTH, (R6) t 
02 A6 OA AB 90 0956 1 MOVE CNRSB.TYPE(R11) .NFBSB. DATABASE(R&) : Store database ID 
01 A6 04 90 0958 1804 MOVB #NFBSA_NOCTX,NFBSB FLAGS (R6) : Indicate one-shot request 
03 A6 00 90 O95F 1805 MOVB #NFBSC_OP_EQL,NFBSE_OPER(R6) ; Search for key EQ 
04 a6 459 ~~ 00 303 1 06 MOVL RO,NFBSL_SRCH_KEY(R6) ; Search for specific entry 
967 180 ; by it's network management name 
F696" 3 967 1808 BSBW CNFSGET_FIELD ; Get t descriptor of name 
03 50 5 96A 1809 BLBS RO,10$ : Branch 
00g8 96D 1810 RW 116$ S Abort 1? unable to get entity name 
OOBC C6 7 0 44 +e 10$ MOVW R7,NFB_SIZE+4(R6) ; Store size of string 
OOBE C6 68 57 2 975 1 \¢ MOVC R7,(R8BY,NFB_SIZE+6(R6) ; Copy into buffer 
83 B84 0978 181 CLRW 6s (RS) + ; Make context a null strin 
52 10 A6 SE 344) 1814 MOVAB NFBSL_FLDID(R6),R2 Point to NFB field ID lis 
53 O11E C6 9E 0981 1815 MOVAB NFB_STZE+P2BUF _SIZE(R6), R3 Get address of P4 buffer 
50 01 00 4 43 Isis MOVL #1,R0 : Indicate co-routine init. success tul 
3444 1318 3; Call the caller back so that he can fill in the NFB and P4 buffers. 
0989 1820 SWAP (SP) ,4(SP) : Sune block ointer & return address 
0995 1821 3 that caller's address is on top 
9E 16 0995 18 ¢ JSB a(SP)+ $ PTtL in the NFB and P4 buffers 
Ben i z SWAP (SP) ,4(SP) ; Swap return address & block pointer 
BoA 1825 ; Terminate the NFB field ID List 
0O9A 13 6; 
O9A3 1827 ASSUME NFBSC_ENDOFLIST EQ 0 
82 D4 Bone 3 8 CLRL (R2)+ : Terminate NFB parameter ID List 
Boat 18 9 ; Construct descriptors of NFB, P2 and P4 buffers for QI10 
7E 6€ OC C1 OQ9AS 1833 ADOL3) #12,(SP),-(SP) ; Retreive starting od eddress of NFB 
7E 52 6€ C3 O9A9 183 SUBL3 (SPS,R P) Compute Length o 
7E 04 AE OOO0011E 8F C1 O9AD eee ADOL #NFB_ SE +P2BUF SIZE, 4 (SB) -(SP) ; Construct gE: of P4 
7E 53 6€ C3 09B6 1835 SUBL3 (SP) 7R3,-(SP) ; Compute Length of P4 buffer 
51 OC AE 00000088 8F C1 O9BA 1836 ADDL #NFB cite, 12(SP),R1 ; Get address of P2 buffer 
50 4 Al 3C O9C3 1837 MOVZWL 4(R 3 each ‘t Length of entity name 
50 00000046 8F CO O9C7? 1838 ADDL #4+2+NFBSC_CTX_SIZE,RO 3 ries for CNF count 
O9CE +a 3 <a 2 bytes for entity string size 
OSCE 1840 3 and context area size 
43 50 7D Back 1341 MOVa RO,-(SP) 3; Push P2 descrptor onto stack 
5 5E DO O9D1 1 r MOVL SP,R2 ; Point to P2/P4/NFB descriptors 
53 08 A2 9E Be0e 184s MOVAB 8(R2),R3 ; Point to P4 descriptor directly 
44 ' o2 3; Send database request to PSIACP 
O0000000'EF B65 O09D8 1 ¢3 TSTW NETSGW_X25_CHAN ; Is there an active channel? 
06 is 9DE 1 rt: BNEQ : If NEQL then ye 
F61D' 3 9EO 184 BSBW nO. 1008 T_X25_CHAN : Assign channel, get PSI mutex 
3¢ 50) 6 EO) «=—(09ES) =: 1850 BLBC : If LBC then error 
9E6 1851 60$ $Q10W_S FUNC = “ns ACPCONTROL .= : Aiateaes Qlo 
966 1 2¢ EFN = wt SC _EFN WAIT r. -; event flag for synchronous calls 
966 185 CHAN = iSGu. X25 CHAN, = : 
966 1854 10SB = Ofou ¥ O71088.— ; Scratch quadword buffer 
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v04-000 SEND_TO_PSI = Send control Q10 to PSIACP = See =1 382 83:43:98 ENE TACP. SREINETCNF DELMAR: 1 . (21) 
966 1 2? Pi = 8(R3),- ; Address of NFB descriptor 
See 1 § P = R2,- ; Address of P2 buffer desciptor 
9E6 185 P$ = #QfOW_W_RETLEN,- ; Address of return Length word 
H; 1 28 P46 == R35 3; Address of P4 buffer 
D 50 5? A 185 BLBC RO,100$ 3; If LBC then error 
50 00000029'EF 7D OA15 1860 MOVG abu Q 10SB,R0 ; Setup I0SB image 
350 € AIC 1861 BLBS R + gOS ; Branch if successful 
22 . a AlF 1 96 MOVL R1,R : Set error qualifier 
Ew « “ ! o 100$: ADDL #3*8,SP 3; Deallocate descriptors 
00000029"EF 50 7D OA 1865 MOVQ RO,Q10W_Q_ I0SB : Save final status 
F501" 39 Aec 1 66 BSBW NE fSINx=cO : Initialize journalling co-routine 
12 50 3 AgF 186 BLBC RO,105$ ; Branch not enabled 
81 44 BF 0 OA3S2 1868 MOVB #°X44,(R1)+ ; Journal record type = QI0W completion 
81  0000'8F 80 - 6 1869 MOVW #I1O$_ACPCONTROL,(R1)+ ; I/0 function code 
81 00000029'EF 7D 0A3B 1870 MOVQ Q10W"Q_10SB,(R15+ : 1/0 status quadword 
9E 16 QA42 1871 JSB a(Spy+ ; Log the journal ing record 
50 00000029'EF 7D we 1376 105$: mova Q10W_Q_I0SB,R0 ; Restore final status 
0A 50 €9 QA4B 1874 BLBC RO,110$ ; Branch if error detected 
22 66 91 OAGE 1875 CMPB = NFBSB_FCT(R6),#NFBSC_FC_SHOW  ; SHOW function? 
15 13 OAS1 1876 BEQL 150$ : Branch so 
25 66 91 OAS3 1877 CMPB NFBSB_FCT(R6) ,ANFBSC_FC_ZERCOU ; READ & ZERO function? 
10 13 OAS6 1878 BEQL 150$ ; Branch if so 
51 50 00 OAS8 1879 110$: MOVL RO,R1 ; Save final status 
50 8EDO O0A5B 1350 POPL RO ; Retreive address of storage 
OOOO0000'EF 16 OASE 1881 JSB NE TSDEALLOCATE ; Deallocate scratch storage 
50 51 DO OA64 1886 MOVL R1,R0 3; Restore final status 
05 OA67 188 RSB ; Done 
OA68 1884 
OA68 1885 ; : : 
OA68 1886 ; The function is either SHOW or READ/ZERO. Since the caller will most 
QA68 1887 ; Likely want to process the returned P4 buffer from the Q10, we return 
OA68 1888 ; from the routine with a desciptor of the returned buffer, and the 
OA68 1889 ; address of our scratch storage, which the caller will deallocate. 
0A68 1890 ; 
OA68 1891 ; ; 
59 BEDO O0A68 1336 150$:  POPL R9 ; Return scratch pointer in R9 
57 QO000G031"EF 3C OA6B 189 MOVZWL QIOW W_RETLEN,R7 ; Return descriptor of P4 buffer 
8 O12A C9 9E OA72 189% MOVAB 12+NFB-SIZE+P2BUF_SIZE(R9) RB 
05 OA77? 1895 RSB ; Exit successfully 
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; -SBTTL NETSDELETE_CRI = Pre-delete processing | 
; NETSDELETE_CRI = Special processing before a CRI entry is marked for delete 


er canpel = Dat 
v04-000 NETSD 


se 
Pre 


; This routine is called to perform any special action that may need to be 
; taken before marking a CNF for delete. 


: INPUTS: R11 CNR pointer 
par ; R10 CNF pointer 
OA7 + OUTPUTS: R11,R10 gig 
A7 : RO S if successful 
OAge 3 te if CNF ~ ott not be marked for delete 
0A78 : ALL registers may be destroyed. 
0A78 i- 
0A78 
OA78 NETSDELETE_CRI:: 
onre : If this is an X25 circuit, ask PSIACP if it's ok to delete CNF 


ScETFLD cri,l,typ Get circuit type Parenter value 


31 50 €9 OA85 3; If_not soeet? ed, skip i 
03 58 D1 OA88 RB. #NMASC _CIRTY_X25 : X25 circuit 
2c 12 OA8B BNEQ 10$ 3 Branch if not 
OA8D SGETFLD cri,l,use 3; Get X.25 u age 
1¢ 50 E9 OA9A BLBC RO, j If not spec? ied, skip it 
00 58 D1 OA9D CMPL R8 ,#NMASC_CIRUS_PER s PVCT 
17 12 ~OAAO BNEQ  10$ : Only ask PSI about PVCs 
OAA2 SCNFFLD scie nam 3; Set field ID of circuit name 
FE8F 30 OAA9 BSBW 6 fo ape ; goth peacouene to setup NFB, P4, etc. 
13 50 €9 OQAAC BLBC 86 " Branch if error detected 
66 21 90 OAAF MOVB Pufeee_FC_DELETE.NFBSB_FETERET Set function code 
9E 16 QAB2 JSB a(SP)+ 3 Call SEN D_TO_PSI to issue Q10 
0B 50 £9 OAB4 BLBC RO,90$ : Branch if error detected 
06 11 OAB7 50$ : Allow delete 


; For all circuits, if the LPD is no longer present (as a result 
: of an ON => OFF state transition), then allow the delete. 


10$: BSBW NETSLOCATE_LPD : Locate the LPO 
BLBS RO,80$ : If found, then do not allow delete 
508: MOVL #1-RO : Allow delete 


80$: CLRL RO ; Do not allow delete 
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NE TCNFDLL - Datalink database ac 
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ace 1302 -SBTTL NETSDELETE_PLI = Pre-delete processing 
neg 1942 ; NETSDELETE_PLI - Special processing before a PLI entry is marked for delete 
AC6 1949 ; This routine is called to perform any special action that may need to be 
Abe 1329 3; taken before marking a CNF for delete. 
OAC6 1326 ; INPUTS: Ri) CNR pointer 
OAC6 1955 ; R10 CNF pointer 
pace 1954 ; 
AC6 1955 ; OUTPUTS: R11,R10 Preserved 
pace 1338 ; RO LBS if successful 
AC6 1957; LBC if CNF should not be marked for delete 
OAC6 1958 ; ; 
OAC6 1959 ; ALL registers may be destroyed. 
OAC6 1960 ;- 
QOAC6 1961 
OAC6 1306 NETSDELETE_PLI:: 
OAC6 196 S$GETFLD pli,l,sta 3: Get the state value 
08 50 E9 OAD3 1964 BLBC ‘ 3; If LBC then no need to check state 
58 01 Di OAD6 1965 CMPL #NMASC_STATE_OFF ,R8 ; Is the Line turned off? 
03 13 OAD9 1308 BEQL 10$ : af NEG then cannot delete PLI 
50 D4& OQADB 196 CLRL RO : Say “‘cannot delete PLI"’ 
0S OADD 1968 RSB 3; Done 
OADE 1969 3 
ae 1b 44 : If this is a LAPB Line, ask PSIACP if it's ok to delete CNF 
OADE 13r6 10$: Scerr Lo Robe he iP°S. ve 3; Get protocol parameter value 
18 50 €9 OAEB 197 3; If not specified, skip it 
05 58 Di OAEE 1974 fAASC LINPR. LAPB : LAPB Line? 
13. 12 OAF1 1975 BNEQ tNPLVE vet 3; Branch if n 
OAF3 1976 SCNFFLD Oot. Se nam,R9 ; Set field 1D “of Line name 
FE3E 30 OAFA 1977 BSBW 0_PSI ; cal co-routne to setup NFB, P4, etc. 
05 50 =—s«éE9 a} 1978 BLBC RO, np fo. nch if error detected 
. 2.5 a8 69 1979 MOVB #NF BSC _FC_DELETE ,NFBSB_ FértRe) Set function code 
9E 16 0B03 1980 JSB a(SP) : Call SEND TO_PSI to issue Q10 
05 0805 1981 90$: RSB ; Return with Status. 
0B06 1386 
0B06 1983 DEAL_PLVEC: ; Beal Locate PLVEC cell 
54 12 AA 3C 0806 1984 MOVZWL CNFSW_ID(R10),R4 ; Get the PLVEC index 
1D 13 OBOA 1985 QL 1 3 if eae then done 
OOO00000'EF44 94 pars 19 § CLR PLVECSAB_REFCCR4] 3 no longer any references to this slot 
Q00000000'EF44 D4 O0B13 198 CLR PLVECSAL_UCBCR4] 3; No U 
rete 1388 SDASSGN 2° 3 a the 1/0 channed 
1A 19 “CHAN = PLVECSAW_CHANCR4); 
+3 9 1990 ; Ignore errors 
50 00° oO 9 1991 10$: MOVL S“#SS$_NORMAL ,RO ; Indicate success 
05 OB2C 1992 RSB 
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-SBTTL NETSREMOVE_xxx = Pre-remove processing 


NETSREMOVE_CRI = Processing after CRI block has been removed. 
NETSREMOVE_PLI = Processing after PLI block has been removed. 


This routine is called to re special processing after a CNF block has | 
been removed from the database. On return, the block is deallocated. 
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INPUTS: R11 CNR pointer 
RO CNF pointer 


OUTPUTS: ALL registers are preserved. 
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TSREMOVE _CRI:: 
TSREMOVE PLI 


J 
RSB 


3; Remove Circuit CNF action routine 
$3 3; Remove Line CNF action routine 
NETSREMOVE _DEF ; Let default routine do the work 
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2 018 -SBTTL CRI parameter action routines 
08 r 13 3; NETSCRI_V_LCK = Get status of conditionally writeable fields 
0B34 O16 ; We TSERt eth - Get circuit's substate 
pes? 4 3 NETSCRI-L~ - Get broadcast circuit's designated router 
7 4 O18 ; NETSCRI_L_PNA = Get partner's node address 
B34 0 ; NETSCRI_L_BLO - Get partner's receive block size 
$8 3% 8 1 ; NETSCRI_LL_LIT - Get partner's Listen timer 
- 4 8 i 3; NETSCRI_S_COL - Get circuit's collating value 
B34 4 ; NETSCRI_S_PNN = Get Pines s node name 
0B34 2025 ; NETSCRI_S_LOO - Get Line's loopback name 
0834 2026 ; NETSCRI_LS_CNT = Get ( ort jonally clear) circuit counters 
0B34 2027 ; NETSCRI_S_VMSNAM Get V name of associated device | 
B34 0 8 ; NETSCRI-S-CHR = Get Circuie® s characteristics buffer 
0B34 2030 ; INPUTS R11 CRI CNR address 
0B34 2031 ; R10 hy CNF addres | 
0B34 sors : RG FLD i.d. of field being read 
0B34 soe ; R1 Scratch 
; cratc 
OB3¢ 5038 ec. aaa 
0834 $030 3; OUTPUTS: R1 Address of spring ¢ Geser feter or address of field value 
0B34 so%s : RO Low bit set is val 
tei Sots 3 Low bit clear otherwise 
0B34 sees 5 ALL other register values are preserved. | 
0B34 2041 ; 
OB3¢ 5045 * 
0B34 2044 NETSCRI_V_LCK:: ; Get status of cond. writeable fields 
F409" 30 0B34 2045 BSBW NETSLOCATE_LPD ; Locate the LPD 
07 50 €9 0B37 2046 BLBC ,10$ ; If LBC no LPD, not locked 
18 A6 95 OB3A 2047 TSTB LPD$B_ASTCNT(R6) 3; Any 1/0 outstanding? 
02 12 OB3D 2048 BNEQ 10$ : If NEQ yes, locked 
50 D4 OB3F 2049 CLRL RO : Else not locked 
51 50 00 0841 2050 10$: MOVL RO,R1 ; Return as field value 
50 00° DO 0B44 2051 MOVL S“#SS$_NORMAL ,RO ; Success 
0 Oee8 3088 2 
0B48 2054 | 
pase 833 NETSCRI_L_SUB:: ; Get circuit, s substate 
F4B5° 30 4 56 BSBw NETSLOCATE_LPD ; Locate the LPD 
0—E 50 «£9 pete 057 BLBC RO,10$ : If LBC, no, LPD or substate 
50 364 4E 2058 CLRL R 3; Assume in ‘‘run’’ state 
04 €0 0850 2059 BBS #LPD$V_RUN : If BS then no sub-state 
07 22 A6 B92 060 LPDSW_§TS(R6),108 
51 27 A6 QA 5 061 MOVZBL LPD$B_SUB-STA(R6) ,R1 ; Get sub-state 
50 00° DO 0859 066 MOVL S*#SSS$_NORMAL ,RO ; Set status 
05 98 3¢ se 10$: RSB ; Return to co-routine 
5D 65 NETSCRI_L_DRT:: ; Get broadcast circuit's designated router 
F4A0° 30 5D 6 BSBW NETSLOCATE LPO ; Locate the LP é 
250 ~=«CEP 4¢) 6 BLBC RO,90$ : If not found, return ‘'not set’ 
50 D4 0B6 068 CLRL ; Assume not a valid address 
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L 
R 


SE 
SE 
BBC #LPD$V_BC,LPDS 
MOVZWL LPDSW_BRT( 6), 
BEQL 0$ 
MOVL NETSGL_PTR_VCB 
MOVL @RCB$L-PTR-ADJ 
MOVZWL ADJS$W_PNACR1), 
BEQL 90$ 
BSBW SUPPRESS AREA 
MOVL S*#SS$_NORMAL RO 
90$: RSB 
NETSCRI_L_BLO:: 
BSBW NETSLOCATE_LPD 
BLBC RO, 10$ 
CLRL R 
BBC #LPD$V_RUN,- 
LPOSW_STS( 
MOVZBL LPDSB PTH” INX( 
MOVL NETSGC_ PIR _vCB 
MOVL @RCBSL-PTR-ADJ 
MOVZWL ADJ$W BUFSTZ(R 
MOVL S*#SS$_NORMAL, 
10$: 
NETSCRI_L_LIT:: 
BSBW NETSLOCATE_LPD 
BiBC RO,10$ 
CLRL R 
BBC #LPD$V_R 
LoS. "S75 (RO), 10$ 
BBS #LP 
LPDSW. Ve S(R6), 10$ 
MOVZBL LPD$B~ Pri INK(R) , R7 
MOVL NETSGC_P 
MOVL aRCB$L— ats -\58 Re) cR73. R? 
MOVZWL ADJ$W_INT_CSN(R7) 
MOVL Sn ases “NORMAL, RO 
10S: RSB 
NETSCRI_L_PNA:: 
BSBW NETSLOCATE_LPD 
BLBC RO, 10$ 
CLRL 
BBC #LPD$V_R 
tPOSW. NTs. (R6). 10$ 
BBS #LPDSV_BC? 
LPD$wW_ST S(R6), 108 
MOVZBL LPD$B”PTH INX{RO) R7 
MOVL NETSGC_PT 
MOVL @RCBSL PTR =ADU RGD ER71, R} 
MOVZWL ADJ$W_PNA(R7) 
BSBW SUPPRESS. } 
MOVL S“#SS$_NORMAL ,RO 
10$: RSB 


NETSCRI_L_MST:: 
BSBW 


NETSLOCATE_LPD 


oe oe 

See Se Se Se ade Bets O aS 
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Cid 
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$ ; No DRT if not broadcast circuit 
Get grrelenetes router ApS index 
: Get” then DRT ‘‘not se 


cB address 
Get ADJ address 
: bet DRT node address 
If 0, then DRT ‘'not set’’ 
Suppress. renee if necessary 
Set stat 
Exit with status/value 


Get partner's receive block size 
Locate the LPD 

If LBC, no LPD or partner node 
Assume not in ‘'run’’ state 

If BS then no block size 


Get LPD index 

Get RCB address 

3; Get ADJ address 

Get partner's node address 
Set status 

Return to co-routine 


: ; Get parener 9S rater timer 


Locate the LP 

If LBC, no LPD or partner node 
S deoune not in ‘run state 

If BS then no Listen timer 


If a broadcast circuit, 
then no Listen timer 


; Get ADJ address 

Get partner's Listen timer 
Set status 

Return to co-routine 


Get partner's node address 
Locate the LPD 

LBC, no LPD or partner node 
Assume not in ‘'run’ state 
If BC then no partner node 


If a broadcast circuit, 
then no block size 


Get ADJ addres 
bet partner's oe 8 address 
Suppress area, if necessary 
Set status 
Return to co-routine 


; Get maintenance mode state 
; Locate the LPD 


] 


dD 3 
NETCNFDLL = Datalink database action routines a es ae 63:13: :07 VAX/VMS Macro Vv04-00 Page 49 | 
v04-000 CRI parameter action routines -SEP-1984 02:18:18 (CNETACP.SRCINETCNFDLL.MAR;1 (25) 
OE 50 5? OcO8 21 § BLBC = RO, 20 ; If LBC, no LPD or partner node 
51 9 C 343 1 MOVZWL #NMASC_STATE_ON,R1 ; Assume state is ‘'ON' 
0 EO O0CO 128 BBS # a ; If BS then maintenance state is ‘‘ON'' 
03 22 A6 0C10 2129 LP PBSW§TS(R6),108  : 
51. 01. 3C.s«O0C13)—- 2130 MOVZWL #NMASC_STATE_OFF,R1 : Else state is OFF’ 
50 ©6000" BY C16 2131 108: MOVL S*#SS$_NORMAL, RO- : Set status 
0 C19 21 § 20$: RSB 3; Return to co-routine 
OCIA 21 | 
OCIA 2134 
OCIA 192 NETSCRI_S_COL: ; Get circuit's oh aiie., value 
OCIA 2136 “SCE TFLD cri,s,nam ; Get circuit's nam 
09 50 £9 o¢ 7 2137 BLBC RQ. {0g : Branch if not present 
63 = 68 8 OC2A 2138 OvC3 = R7, (RB), (R3) : Move the name 
50 0000'8F Cc OC 4 139 MOVZWL #S5$_NORMAL,RO ; Indicate success 
05 bc 7 139 10$: SB ; Return status in RO 
0C34 146 NETSCRI_S_PNN:: ; Get partner's node name 
F3C9" 30 OC34 214 BSBW NETSLOCATE_LPD t Locate the LPD 
46 50 €E9 OC37 2144 BLBC RO,20$ ; If LBC, no LPD or partner node | 
50 D4 OC3A 2145 CLRL RK : Assume not in ‘run’ state | 
04 €1 OC3C 2146 BBC #LPDOSV_R ; If BC then no partner node ) 
3F 22 A6 OC3E 2147 tPoSu. $T5(R6), 20$ : 
A €0 QC41 2148 BBS #LPD a? 3; If a broadcast circuit, 
3A 22 Ab 0C43 2149 LPDSW_STS(R6) ,20$ 3; then no block size 
57 20 A 9A 0C46 2150 MOVZBL Ritts PTH INX(R6), R7 ; Get LPD index 
54 pod0gOU8 EF DO OC4A 2151 MOVL NETSGC_PTR_VCB,R4 - Get RCB address 
57. 2C B447- DO 0C51 13 MOVL  aRCBSL~ PTR “ADJ(R4)CR7],R7 ; Get ADJ address 
58 of AZ 3C 0C56 215 MOVZWL athe PNA(R7) ,R8 ; Get partner's node address 
5B OO0000000'EF DO OCSA 2154 MOVL $cC CNR NDT RI ; Get NDI root block 
F39C° 30 0C61 2155 BSBW We TSap T_BY_ADD 3; Get the associated NDI CNF 
19 50 €—9 0C64 $128 BLBC RO,20$ ~ : If LBC then none 
0C67 2157 SGETFLD ndi,s,nna 3; Get node name 
09 50 9 0C74 2158 BLBC : If LBC then not set 
63 68 57 8 OC77 2159 MOVC3 7, (RB), (R3) ; Move the name 
50 0000°BF 3C OC7B 2160 MOVZWL #SS$_NORMAL,RO : Indicate success 
05 peay $10) 20$: RSB ; Return status in RO 
0C¢81 188 NETSCRI_S_LOO:: ; Get Line's loopback nodename 
0C81 2164 SGETFLD cri,s,nam : Get Line name 
34 50 €9 OCBE 2165 BLBC 3; If LBC then error 
5B OO0000000'EF D0 O0C91 2166 MOVL NETSGL_ CNR_NDI,R11 ; Get NDI root block 
5A D4& OC98B 2167 CLRL R 3; Indicate no current NDI CNF 
OC9A 2168 $SSEARCH 80.508 ndi,s.nli 3; Get find NDI with this loopback Line 
19 50 €9 Bree 169 L ; If LBC then not found 
CAC 2170 SGETFLD ndi : ye : Get the node name 
09 50 9 OCB9 2171 BLBC : If LBC then not set 
63 6 8 OCBC 76 MOVC3 7, (RB), (R3) ; Move the name 
50 0000°BF 3c OCCO 217 MOVZWL #SS$_NORMAL,RO : Indicate success 
05 Bec? We 20$: RSB ; Return status in RO 
OCC6 176 NETSCRI_S ry ge : Get VMS name of device 
occe 17 SCETFLD cri,s,nam ; Get network management circuit name 
03 50 58 CD 178 BL éC : If LBC then error 
0693 0 Bcd8 179 BSBW TRAN_DEVNAM ; Get VMS device name 
cD 180 Exit with status 
(D9 2181 Assume that any remaining characters are part of tributary identifier 
05 OcD9 5182 1008: ; Return status in R | 
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QCDA 2183 | 
CDA 21 NETSCRI_S_DEVNAM: : ; Get VMS goetes name, including unit 
F323' 30 Oca 1 “BSBW NETS OCATE_LPD ; Locate . | 
7 oe ED ogee 54 BBE’ ALPDSV : Branch, fon fe nat 1 t | 
3; Ex circuit not in run state 
54 22 Ab tEe 1 {bosa. Vet the). 80$ | 
5E ce CE 1 SUBL ri sp~ ; Used for returning Gevice characteristics 
54 re. CEB 21 MOVL SP RG : Point R4 at return bu 
00 DD Bees 1 PUSHL # ; Terminate GETOVI item list 
00000029 EF oF cep 1 PUSHAB Q10W_Q_10SB ; Point to DEVCHAR Length word tune 10SB) 
54 DD OCF 1 PUSHL R : reunt to DEVCHAR return buffer 
7E 02 BO pcre 1 MOVW #O0VIS_DEVCHAR,-(SP) ; Item code 
7E Q&6 BO OCFB 21 MOVW #4,- 3 Size of DEVCHAR result buffer 
00000031 "EF 9F OCFB 21 PUSHAB a1bu, W_RETLEN : Point to result length word 
3 DOD OD01 21 PUSHL R ; Point to result buffer 
7E 20 60 QDO03 21 MOVW #DVIS_DEVNAM,-(SP) ; Item code 
7E 20 BO 0D06 21 MOVW #DEVNAM_C_S12,-(SP) : Size of result buffer 
51 5E dO 0D09 § MOVL SP,R1 ; Point to item List 
OD0c SGETDVI_S [TMLST=(R1),- : Construct actual device name 
OD0C 22 “EFN=#NETSC_EFN WAIT,- ; Use synchronous event flag 
4" 2 CHAN=LPD$W_ ~EHANCRO) 
SE 20 CO OD ADDL +g 3 3? : Pop item List 
15 50 E9 QD26 BLBC ; Branch if error detected 
0c 64 OD a 0D29 BBC moe Vsy _NET, (R4) ,80$ : Br if not a network device 
51 00000031'EF C OD2D 22 MOVZWL QIOW_W_RETLEN,R Ri ; Get Length of result buffer 
53 51 CO 0D34 22 ADDL R1,R3 ~ ; Point past result string 
05 11 OD37 22 BRB 90 ; Success 
50 O0000'8F 3C 0D39 2210 80S: MOVZWL #SS$_IVDEVNAM,RO : Error in <cri,s,nam> field, or 
OD3E 22 3 not a network device 
05 Oo se 22 90$: RS8 ; Return status in RO 
OD3F 2214 NETSCRI_S CNT ; Get Line counters (maybe clear them) 
53 DD OD3F $$ R3 : Save = address of counter block 
0D41 2 SGETFLD cri,l,typ : Get circuit type 
31 50 €9 QD4E 22 BLBC . ; Branch if not set, assume not X25 
03 58 »d1 OD51 22 CMPL RB ,#NMASC_CIRTY_X25 : X.25 circuit? 
oa. te @s6 £2 BNEQ : Breach if not 
F2A7" 30 0D56 § BSBW = NETSLOCATE_LPD ; Get associated LPD, if a 
2150 €9 tts § BLBC RO,10$ ; Branch if no datalink aapsineg enabled 
Op ae § : X.25 datalink mapping circuit counters 
3F 610 OD5C 22 SEB 50$ ; Get Transport counters & seconds 
53 Bp 30? PUSHL R3 ; Save current position in buffer 
0065 0 0D6 BSBW 2008 ; Get PSI circuit counters & seconds 
58 BEDO 0D6 POPL R8 ; Get start of PSI counter block | 
OF 50 E€9 0D66 BLBC RO,5$ ; Branch if no PSI counters (possible 
0D69 3 for switched circuits) if | 
C000 8F 68 81 QD69 CMPW (R8),#NETSC_NMACNT_SLZ ; ‘“‘seconds since last zeroed’ ? 
1A D6 BNEQ 30$ ; Branch if not 
57 6 § D7 SUBL #4,R7 3; Account for loss of PSI ‘’seconds"’ 
68 04 A8& 7 D7 MOVC R7,4(R8), (RB) ; Delete PSI seconds counter from block 
50 01 DO OD78 5$ MOVL #1,R0 3; Success 
OD 11 0078 Bra s(308 | 
D7D 3 Native X.25 circuit counters 
0D7D : 
| 
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I circuit counters & seconds 


oun mom 


0 10$: BSBW ghos ; G 
BRB 0$ i; a 


ov 


% 
t t 
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: ; ntinue with status in R 
p : Non=X25 circuit counters 
F27B' 30 OD 208: 6SBW NETSLOCATE_LPD ; Get associated LPD 
11 39 E9 OD BLBC RO,40$ 3; Error if LBC 
1 10 0D88 BSBB 50 ; Get the Transport counters 
a. © DO ODBA 30$: MOVL (SP) ,R2 ; Recover original counter block ptr 
09 5 E9 OD8D BLBC RO,40$ : If LBC then error 
50 0 Be 494 MOVL S*#EVCSC SRC_CIR,RO ; Setup database event i.d. 
Feen. 0 94 BSBW LOG_ COUNTERS ; Log the counters if they were zeroed 
50 0' 00 0D96 MOVL S*#SS$_NORMAL ,RO ; Success 
SE 04 CO O0D99 40$: ADDL #4,SP ; Pop buffer pointer 
05 OD9C RSB 3 Done 
OD9D 
OD9D : 
$098 ; Subroutine to move Transport and datalink counters 
55 Q0000000'EF 9& OD9D §0$: | MOVAB  LPD_CNT_TAB,RS ; Point to Transport counter table 
se us ODA4 MOVZWL #4+CPDSC_CNT_SIZE,R2 ~~; Number of tes of Transport counters 
: or 
51 36 A6 =6GE «=—(ODA7 MOVAB LPDS$L_ABS_TIM(R6),R1 ; Point to counters 
00000000°EF 16 pone JSB MOVE _FMT_ CNT : Move and format Transport counters 
“7 0081 ; Get the counters from the driver and append to current counters 
“) pe 3 minus the ‘seconds since last zeroed’ counter. 
OE 22 A607 0DB1 BBS #LPOSV_X25,LPD$W_STS(R6),90$ ; Skip if X.25 datalink 
52.14 AG 0DB MOVZWL LPD$W_CHAN(R6) ,R2 : Is there an 1/0 channel 
08 DB BEQ 90$ ; If EQL no, skip this phase 


L 
MOVZWL #10$_SENSEMODE!- ; Setup function code 


So 

So 

So 

o 

co 

nn 
OoOWW Wwe 
MAD AWOO 

oO 

Co 

@ 


50 10$A_RD_COUNT,RO : 
0673 BSBW DEV_CNT G10 ; Issue circuit Q10 for counters 
50 =600" 90$: MOVZWL S*#5S$_NORMAL RO : Indicate success 
100$: RSB : Done 


: Subroutine to move PSI circuit counters 


200$: PUSHR #*M<R3,R6> Save registers 


WOOO DW O09. 0909 09090900 09 09 09 SI INI NNN DS DS DOO OS TUTTE BS 
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SCNFFLD cri,s,nam,R9 :; Set field ID of circuit name 
FBS5 «=. 30 BsBu SEND to_PS1 : Call co-routine to setup NFB, etc. 
2250 €9 RO,59$ ; Branch if error detected 
SCNFFLD cri,s (R2)+ ;_ Store counter field ID into NFB 
66 22 90 #NFBSC_FC’SHOW,NFBSB_FCT(R6) ; Set function code 
03 00000000'EF ¢ 4 BB #NETSV_CLRCNT ,NETSGL_FLAGS 55$ ; Branch if not cleering counters 
66 0 MOVB #NFBSC_ ZERCOU,NFBSB_FCT (RG) ; Set READ & ZERO function code 
53 00000200 8F C0 55$: ADDL #P4BUF-SIZE.R 3; Set size of P4 return buffer 
9E 16 JSB a(SP)+ ; Call SEND_TO_PSI back to issue Q10 
0048 8F BA POPR #*M<R3,RO> ; Restore registers 
C9 50 y 59$: BLBC RO, 100$ ; Branch if error detected — 
57 : C MOVZWL (RB)+,R7 ; Make descriptor of CNT string 
63 68 8 MOVC ~—s-R7, (RB), (R3) : Copy P4 buffer into counter Block 
0 9 00 MOVL ROR ; Point to scratch storage 
OOOO0000'EF 16 JSB NE fSDEALLOCATE ; Deallocate SHOW buffer 
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\- 
04 A5 53 #55 (C3 SUBL3 =R5,R3,DLLQIO$L_P1(R5) ; Setup offset to characteristics buffer. 


properly (with the exce tion of the MOP bit) from the PLI database 


: Get the characteristics buffer form the UCB. This buffer was setup 
: when the corresponding DMC ‘‘Line’’ was turned on. 


ASSUME UCBSL -pEvoerene EQ 2+UCBSW_ pevaurs1z 
ASSUME UCB$W"DEVBUFSIZ EQ 1+UCBSB_DEVTYPE 
ASSUME UCBS$B_DEVTYPE EQ 1+UCBSB-DEVCLASS 
83 40A0 7D mOva UCB$B_DEVCLASS(RO),(R3)+; Enter device characteristics 
CLRBIT X sv CHR R_MOP,-4(R35 : Assume MOP mode not needed 
0% 22 Oe BBC ; If BC net in use for direct-access 


CRI parameter action routines 18:18 CNETACP. gat CIN NETCNFDLL.MAR; 1 
50. 6601 97 MOVL #1,R0 3; Success | 
Be a 38 RSB 
. €1 QO NETSCRI_S_CHR:: ; Get Line's startup characteristics | 
1 30 0E1 1 BSBw ners OCATE _LPD ; Get associated LP 
45 E9 OE1 ¢ BiBe 100 ; Error if LBC 
DD 0E18 PUSH 3; Save buffer pointer 
00 of 00 2C OETA 4 MOVC FO, (SP) ,#0,- ; Zero buffer header 
6 18 £1 5 #OLLQIO$SC_CENGTH,(R3) : ...advance R 
55 BEDO OE 06 POPL RS 3 Point to DLLQIO block 
50 D4 OE 07 CLRL RO 3& (better code) Assume no PLVEC index 
54 28 A GA 3 5 38 MOVZBL LPOSB_PLVEC(R6) ,R4 ; Get PLVEC index 
3 13 OE29 BEQL ; Report error 
50 10 A6 00 0E2B 10 MOVL LPDS$L_UCB(R6) ,RO 3; Get device UCB 
13 OE2F 11 BEQL 100$ ; If EQL then none 
0000'8F 3C 0E31 \¢ MOVZWL #10$_S ; Setup 1/0 function code 
65 0E35 231 SCLe1OsL “ENC (RS) 
52 OOO0016C'EF 9E +3 6 2314 CRI_TRN_TAB,R ; setup porenster translation table 
SD'AF 9F OE3D 2315 HAB_ B* tos” tup return a ddress 
44 $18 SDISPATCH a PLVECSAB_ DEVERS4.= 3 bispaten on device type 
0E40 2318 <DEVTRNSC _DEV_DMC, ete = 
0E40 2319 <DEVTRNSC_DEV-PCL, CRI-PCL>,= 
0E40 320 <DEVTRNSC_DEV_DMP, CRI_DMP>,=- 
0E40 321 <DEVTRNSC_ “DEV. uke HERE - 
0E40 358 <DEVTRNSC_DEV_UNA, CRI_UN A>, - 
0E40 $3 > 
01 11 QOE5B 2324 BRB CRI_FOREIGN ; Br if device is unknowm 
OE5D $35? 10$: 
65 OE5D $3 6 100$: RSB 
OESE 2327 
OESE $356 CRI_DMP: 
OESE $2 CRI_PCL: 
OESE 33 0 CRIZCI: 
OESE 2331 CRI_UNA: 
OESE $36 CRI_FOREIGN: 
044F 30 OESE 233 BSBW BUILD_DEVBUF ; Build the device parameter buffer 
05 0&61 2334 RSB ; 
0E6 $32 ke 
0E6 § $$ CRI_DMC: 
0E6 337 
0E6 338 
0E67 2339 
0E67 40 
0E67 41 
0E67 +s 
0E67 4 
0E67 44 
0E67 45 
E67 46 
E67 47 
E67 48 
E67 49 
E68 50 
E6F 51 
E71 26 
0E74 5 


ANNO 


SETBIT XMSV_CHR_MOP,-4(R5) 


; Put bang in MOP mode 


| 

oce : | 
Oppose $15(R6) OS ; functi 
| 
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ef 2 10$: : 
ef 36 : Get number of receive buffers from the PLI database 
E7 8 : 
5'f) 8F BB QE? 2 PUSHR #*M<R1,R10,R11> ; Save regs 
00000000 ' EF DO ere 60 MOVL NETSGL_CNR_PLI,R11 3; Get PLI root block 
SA D4 ee 61 CLRL a1. : Search from begining of List 
58 54 00 OE85 6¢ MOVL : Search key is the PLVEC index 
E88 6 $SEARCH ; le ie , lL plvec : Find PLI's CNF block 
10 50 €9 OE 64 BLBC 3 if LBC then not found 
BEA 65 SGETFLD i L,bfn : Get # of receive buffers 
03 50 €8 QEA7 06 BLBS 20 § : If LBS then field was active 
04 00 OEAA 67 15$: MOVL 5 Aeeus default 
0c AS 58 DO OEAD 68 20S: MOVL ns. DLLazOs. P3(R5) 3; Setup # of reeuben buffers 
OCO2 8F BA pee) $? POPR »R10,R11> ; Restore regs 
50. 6(01 90 OEBS 71 MOVB #1,R0 : Indicste success 
05S OE&B8 72 100$: RSB ; Return status in RO 
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344 -SBTTL PLI parameter action routines 
NETSPLI_V_LCK = Get status of conditionally writeable fields 
NETSPLI_L_SUB = Get Line's substate 
; NETSPLI_L_BUS = Get Line's receive buffer size 
; NETSPLI_L_PLVEC Get Line's PLVEC index 


NETSPLI_S_COL = Get Line's collating value 


mm 


; NETSPLI_S_VMSNAM Get VMS name of associated device : 
; NETSPLI_S_DEVNAM Get VMS name of associated device, but with unit included 
; NETSPLI_LS_CNT = Get (optionally clear) Line counters 
NETSPLI_S_CHR = Get Line's characteristics buffer 
; INPUTS: R11 PLI CNR address 
3 R10 PLI CNF address 
R9 FLD i.d. of field being read 
R1 Scratch 
RO 
; OUTPUTS: R1 Address of oyring descriptor or address of field value 
: RO Low bit set if RI is valid 


Low bit clear otherwise 
ALL other register values are preserved. 


. 
7 
° 
. 
° 
© 
o 
eo 
. 
° 
° 
. 
° 
° 
° 
° 
2 
. 
a 
e 
° 
. 
° 
e 
° 
° 
° 
° 
° 
c 
. 
° 
. 
° 
+ 
oe 
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NETSPLI_V_LCK:: ; Get status of cond. writeable fields 


“$GETFLD pli,l,sta Get the state value 
BLBC 


07 50 €9 . : If LBC then not locked 
58 O01 O01 CMPL #NMASC_STATE_OFF ,R8 ; Is the Line turned off? 
02 12 BNEQ 10$ : If NEQ then Locked 

50 904 CLRL RO ; Say “not locked" 
51 50 00 10$: MOVL RO,R1 ; Return as field value 
50 00° dO MOVL § S*#SS$_NORMAL,RO : Success 
05 RSB 
NETSPLI_L_SUB:: ; Get Line's substate 
50 D4 CCRL = RO 3 No substate is defined for lines 
: at this time 
05 RSB ; Return status in RO 


NETSPLI_L_PLVEC:: 
MOVZBL CNFS$W_ID(R10),R1 
MOVL S*#SS$_NORMAL ,RO 


Get Line's PLVEC index 
Get the PLVEC index 


| 
| 
Scratch 
| 
| 
| 


0 00° 4 Success 
0 RSB Return 
NETSPLI_L_BUS:: :; Get Line's receive buffer size 
: (MUST preserve R2-R11) 
0380 8F 6B PUSHR #*M<R7,R8,R9> ; Save registers 
51 00000000'EF b0 MOVL NETSGL_PTR VCB,R1 ; Get RCB address 
1 7E Al 3¢ MOVZWL RCBS$W TOTBOFSIZ(R1),R1 ; Store the local block size 
51 004C 8F 2 SUBW #CXBSC_OVERHEAD,R1 ; Subtract out overhead 


; if this is an Ethernet controller, then add an additional | 
5 bytes overhead to account for the extended Ethernet 


WM HMMMMMMMOCOOOCVCVCVVVTVCVOVOOCCCWWWVWWVIWVIVOVIOVIVIVIOWVTOVIOOWOOWVIOITIOOOIoOwW 
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EF6 2431 ; Route Header used by Transport. This is done only for 
sce 4 ¢ ; Ethernet datalinks to avoid burdening point-to-point datalinks 
Ere r Z 3; with the additional memory for its buffers. 
50 12 AA 36 EF6 2435 MOVZWL CNESW_1D(R10) ,RO : Get PLVEC index 
OD 1 EFA 24 $ BEQ 0$ 3 If none, skip it 
09 QO000000'EF4O 91 OEFC 24 CMPB PLVEC$AB_DEVCROJ,- 3; Is this an Ethernet controller? 
FO4 24 3 #DEVTRNSC_DEV_UNA 
03 ig FO4 246 BNEQ 3; Skip if not 
me me. g FO6 2440 ADDL #TRSC_MAXHDR-6,R1 3; Add additional overhead for 
0709 red 3; Phase IV Ethernet Transport header 
£88 108 ; If the user wants a larger buffer size for this Line, 
OFO9 2444 : then return that value rather than the default executor 
Orbe re ; buffer size. 
FO9 2447 50$: $GETFLD pli,L,bfs : Executor buffer size overridden? 
0350 €9 at 448 Blac RO, 908 : Skip if not 
51 58 D0 OF19 2449 MOVL R1 ; If set, use it (includes xpt header) 
50 0000°B8F 3C OFIC 2450 90$: MOVZWL #SS$_NORMAL,RO > Success 
0380 8F BA OF21 2451 POPR #*M<R7,R8,R9> : Restore registers 
05 OF H re 3; Return status in RO 
OF26 2454 NETSPLI_S _COL:: ; Get Line's collating value 
OF § 455 SGETFLD pli,s,nam ; Get Line's name 
09 50 €9 OF 456 BLBC 10$ : Branch if not present 
63 Re ¢8 OF36 2457 MOVC3 R7,(RB),(R3) ; Move the name 
50 0000'8F C OF3SA 2458 MOVZWL #SS$_NORMAL,RO ; Indicate success 
05 48 ree 10$: RSB ; Return status in RO 
OF40 2461 NETSPLI_S_VMSNAM:: ; Get VMS name of device 
OF 40 186 SGETFLD pli,s,nam ; Get network management Line name 
OF 50 £9 OF4D 246 BLBC ,10$ : If LBC then error 
0419 0 oF 29 464 BSBW TRAN_DEVNAM 3; Translate the device name 
09 50 +€9 OFS 465 BLBC RO,10$ ; If LBC then error 
57 DS OF56 2466 TSTL R7 ; Any characters left? 
05 13 OF58 2467 BEQL 10$ ; If EQL then none, name is okay 
50 Q000°8F 3C OFSA 2468 MOVZWL #SS$_IVDEVNAM,RO : Error in <pli,s,nam> field 
05 erat $$? 10$: RSB 3 Return status in RO 
oF oe 471 NETSPLI_S_DEVNAM: : 3; Get VMS device name, including unit 
58 12 AA Hs F60 tts MOVZWL 4 CNFSW_ID(R10) .R8 3; Get PLVEC index 
B 13 OF64 247 BEQL $ : Branch if none 
50 O0000000'EF48  3¢ BF o6 aft Ovz PLVECSAW_CHANCR8] ,RO ; Get channel used by Line : 
5E 04 C2 OF6E 2475 SUBL #4,SP ; Used for returning device characteristics 
54 SE 00 OF71 $76 OVL SP,R4 : Point R4 at return buffer 
DD OF74 247 PUSHL # : Terminate GETDVI item List 
00000029"EF 9F OF76 2478 PUSHAB Q10W_Q_I0SB ; Point to DEVCHAR Length word (use 10SB) 
4 DD OF7C 2479 PUSHL 4 : Point to DEVCHAR return buffer 
7E 2 60 OF7E 480 MOVW #0VI$_DEVCHAR,-(SP) 3; Item code 
7E 4 0 44: +B) MOVW - : Size of DEVCHAR result buffer 
00000031 "EF F OF84 24 ¢ PUSHAB Q Ow_W_RETLEN ; Point to result Length word 
53 OD An, 4 PUSHL : Point to result buffer 
7E 0 B60 OF8C 484 MOVW #0VIS_DEVNAM,-(SP) 3; Item code 
7E 20 «8B at 485 MOVW  #DEVNAM_C_S12,-(SP) : Size of result buffer 
51 : .§ F g 4 $ MOVL SP,R ; Point to item list | 
F954 SGETOVI_S [TMLST=(R1),~- : Construct actual device name 
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at 4 § ert Na dh tla ; Use synchronous event flag 
F9 4 CHAN=R 
5E ¢f c8 FAB 2490 ADOL #8%4 SP 3; Pop item List 
15 E FAF 491 BLBC }3=—-«aR OO, 908 : Branch if error detected 
0c 64 OD fi FB 49¢ BBC #DEVSV_NET, (R4) ,80$ : Br if not a network device 
51 0000 931 "EF £ FBS 249 MOVZ2WL QIOW W"RETLEN,RI : Get Length of result buffer 
ey FBC 2494 ADDL 1,R3 ; Point past result string 
11 rer 495 BRB o$ : Success 
50 0000°8F 3C OFC! +36 80$: MOVZWL #SS$_IVDEVNAM,RO ; Error in <pli,s,nam> field or 
oh 49 3. not a network device 
05 Fes rh 90$: RSB ; Return status in RO 
Ore? 500 NETSPLI_S_CNT:: ; Get Line counters (maybe clear them) 
53 oD pre? 20) POSHL R3 ; Save starting address of counter block 
Bree 308 ; If this is an X.25 circuit, then ask PSI for its counters. 
OFC9 2505 $GETFLD pli,l,pro : Get Line protocol code 
09 50 E9 OFD6 206 BLBC ° ; Branch if not specified 
05 58 01 OFD9 250 CMPL § RB8.#NMASC_LINPR_LAPB =: LAPB Line? 
04 12 OFDC 2508 BNEQ 10 ; If not, use normal SENSEMODE 
55 10 OFDE 2509 BSBB 00$ : Get PSI Line counters & seconds 
12 11 OFEO 2510 BRB 0$ 
OFE 511 : 
ore 21§ 3 Get non-X25 Line counters 
56 12 AA 3C OFE 514 10$: MOVZWL gal haat ; Get PLVEC index 
18 13 OFE6 2515 BEQL 0$ ; Branch if none 
01 Q0000000°EF46 91 OFE8 2516 CMPB PLVECSAB_DEVCR6),- : No counters for DMC ‘‘Lines’’ (special 
are 517 #DEVTRNSC_DEV_DMC ; case this since XMDRIVER does not 
OE 13 OFF 518 BEQL 30$ 3 support the standard datalink driver 
ad 519 3; interface). 
13. 10 OFF 520 BSBB 50$ 3; Get the counters 
52. 6€ DO OFF& 2521 208: MOVL (SP) ,R2 ; Recover original counter block ptr 
09 50 €E9 OFF7 25 § BLBC RO,40$ 3; If LBC then error 
50. (01 b0 OFFA 25 MOVL  S*#EVCS$C_SRC_LIN,RO : Setup database event i.d. 
FOOO' 30 OFFD 2524 BSBW LOG_COUNTERS 3; Log the counters if they were zeroed 
50 00° oO 1000 525 30$: MOVL $*#5S$_NORMAL ,RO 3; Success 
5E 04 CO 100 526 40S: ADDL 4,SP ; Pop counter address off stack 
05 1996 527 RSB 3; Done 
1007 2528 
1007 2529 50$: 5 
Hf 5 ’ ; Subroutine to build the counter block 
51  QO000000'EF46 ODE 1007 § MOVAL PLVECSAL_ABS_TIMCR6],R1 ; tae. to seconds since last zeroed 
3; counters 
52. 04 00 100 534 MOVL #4,R2 ; Number of bytes in block 
55 OQ0000028'EF 9E 1 \ 535 MOVAB PLI_CNT_TAB,R5 : Point to counter formatting table 
OO000000'EF 16 9 3 6 JSB MOVE_FMT_CNT : Move and format the counters 
101F 5 8 3 Get the counters from the driver and append to counter block 
: | 44 3; being constructed. 
52 00000000'EF 46 +6 101F st 70$ MOVZWL PLYECSAU_CHANCR6) .R2 : Is there an 1/0 channel 
08 1 1027 4s QL 90$ ; If EQL_ no, skip this phase 
3C 1029 ¢ MOVZWL #10$_SENSEMODE !- ; Setup function code 
102A 44 1OSA_CTRL!- : 
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50 0000'8F 
“ey 
50. =—(00" 
0048 8F 
FSF8 
22 50 
66 22 
03 00000000'EF og 
66 
57 00000200 + 
0048 8F 
C9 50 
57 Hs 
63 68 5 
50.59 
00000000’ EF 
50.01 
53 
00 oF 00 
6 18 
55 
50 
54 12 AA 
4C 
50 gone" 
0000 * 8F 
50 
05 
0000* 8F 


65 
52 00000188'EF 
DE AF 
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102A 45 10$M_RD_COUNT,RO H 
1 F 4 BSBW DEV_CAT_GIO ; Issue circuit Q10 for counters 
1 4 708 MOVZWL 9 S*#SS$_RORMAL,RO : Indicate success 
1034 2548 100$: RSB 3; Done 
1038 $880 
13 g 331 ; Subroutine to get PSI LAPB Line counters 
BB 18 5 326 200$:  PUSHR #*M<R3,R6> ; Save registers 
1039 2554 SCNFFLD eis nam,R9 : Set field ID of Line name 
30 8 555 BSBW BND fo_Ps1 3; Call co-routine to setup NFB, etc. 
E9 104 228 BLBC RO,59$ 3; Branch if error detected 
1046 255 SCNFFLD pti s,cnt,(R2)+ : Store counter field ID into NFB 
90 1040 2558 MOVB NFBSC_FC SHOW,NFBSB_FCT(R6) ; Set function code 
E1 1050 2559 BBC #NETSV-CLRCNT NETSGL-FLAGS,55$ ; Branch if not cleoring counters 
90 1058 2560 MOVB #NFBSC_FC ZERLOU.NFESB_FC (R6) ; Set READ & ZERO function code 
CO 1058 2561 55$: ADDL #P4BUF-SIZE,R : Set size of P4 return buffer 
16 1062 266 JSB a(SP)+ ; Call SEND_TO_PSI back to issue Q10 
BA 1064 256 POPR #*M<R3,R6> 3; Restore registers 
£9 1068 2564 59$:  BLBC  RO,100$ : Branch if error detected 
C 1068 2565 MOVZWL (RB)+,R7 3; Make descriptor of CNT string 
28 106 566 MOVC R7, (RB), (R3) ; Copy string into counter block 
DO 107 567 MOVL R9,R ; Point to scratch storage 
16 1075 2568 JSB NE fSDEALLOCATE : Deallocate SHOW buffer 
DO 1078 2569 MOVL -RO 3; Success 
Pie ot aan 
107F 376 NETSPLI_S_CHR:: ; Get Line's startup characteristics 
DD 107F 257 POSH R3 : Save pointer to buffer 
2C 1081 2574 MOVC #0,(SP),#0,- ; Zero buffer header 
1085 2575 #DLLQIO$C_CENGTH,(R3) : ...advance R 
8EDO 1087 278 POPL R5 ; Point to top of buffer | 
D4 108A 257 CLRL RO 3; Assume no PLVEC index assigned 
3C 6108C 578 MOVZWL CNFSW_ID(R10),R4 ; Get PLVEC index 
13 1939 144 BEQL 100$ ; If EQL then return error 
+44 AY : Setup default function value 
+ 388 SDISPATCH TYPE=B ,PLVECSAB_STATECR4),- ; Dispatch by state value 
1092 2585 <NMASC_STATE_OFF, 10$>,- 
109 3 : , <NMASC"STATE_ON, 20$>,- 
BO 109F 25 8 MOVW £08 SETRODE | JOSA_CTRL .RO ; Use this for all other states 
11 10A4 25 BRB 30$ : Continue 
BO 10A6 2590 10S: MOVW #10$_SETMODE!IOSM_CTRL!-; State is ‘off 
10AA 2591 OSM_SHUTDOWN,RO : 
11 ine 236 BRB 0$ 3; Continue 
BO 10AD 93 208: MOVW #10$_SETMODE!IOSM_CTRL!-; State is ‘‘on’’ 
1081 94 10$M_STARTUP,R : 
-_ % ¢ 95 30S: MOVZWL RO DELQIOSL _FUNC(RS) ; Setup 1/0 function code 
9E 1 298 MOVAB. PL{ TRN_TAB,R ; Point to param translation table 
oF ! aC 22 PUSHAB -B°40$ 3; Setup return address 
! or 335 SDISPATCH TYPE=B,PLVECSAB_DEVCR4],- ; Dispatch on device type 
10BF ra <DEVTRNSC_DEV_DMC, PLI_DMC>,- 
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10BF ope <DEVTRNSC_DEV_PCL, PLI_PCL>,=- 
10BF 260 <DEVTRNSC_DEV-DMP, PLI-DMP>, = 
10BF eRe SDEVIRNSC DEV CI PLI_CI>,= 
10BF 2605 <DEVTRNSC_DEV-UNA, PLI-UNA>,- 
ise 606 z <DEVTRNSC_DEV_ PPUNA, PLI_PPUNA>,= 
01 «11 Opt 608 BRB PLI_FOREIGN ; Br if device is unknown 
10DE 2609 40$: 
05 10DE 2610 100$: RSB 
IO 611 
10DF oig PLI_DMP 
10D 61 PLI-PCL 
10DF 2614 PLIZCI: 
10DF 2615 PLIZFOREIGN: 
O1CE 30 10DF 218 BSBW BUILD_DEVBUF ; Build the parameter buffer 
05 10€ 61 RSB 
10E 618 
+ 3 619 PLI_UNA: 
O1CA 30 10€ 620 BSBW pytLo. DEVBUF ; Build standard parameter buffer 
53 DD 10€6 2621 PUSHL 3 Save position in aS buffer 
83 0818 8F BO 10E8 26 § MOVW #NMASC_PCLI_PRM,(R3)+  ; Promiscuous mode = 
83 DO 10ED 26 MOVL § #NMASCSTATE OFF, (R3)+ 
83 0819 8F B80 Jorg 624 MOVW #NMASC-PCLI_ALT,(R3)+  ; Multicast address state = OFF 
3 DO 10F5 2625 MOVL § #NMASC"STATE_OFF, (R3)+ 
83 OBIA 8F BO 10F8 2626 MOVW #NMASC_PCLI_PAD,(R3)+ =; Padding on transmits = ON 
3 DO 10FD 2627 MOVL  #&#NMASC_STATE_ON, (R3)+ ; 
83 0818 8F BO 1100 2628 MOVW $#NMASC-PCLI_BCH,(R3)+ ; Data chaining = OFF 
83 DO 1105 2629 MOVL MASC_STATE OFF,(R3)+ 3 (DLLTRN can't handle multiple CxBs) 
83 OBIC 8F BO 1108 2630 MOVW #NMASC_PCLI_CRC,(R3)+ ; CRC generation = ON 
83 00 D0 110D 2631 MOVL #NMASC_STATE_ON, (R3)+ 
83 OBIE 8F BO 1110 O36 MOVW #NMASC_PCLI_ACC,(R3)+  ; Protocol access mode = exclusive 
83 DO 1115 263 MOVL #NMASC_ACC_EXC,(R3)+ 
83 OBOE 8F BO 1118 2634 MOVW #NMASC_PCLT_PTY,(R3)+ ; Protocol type parameter code 
111D 2635 SGETFLD pli,l,ept ; Get proseces type to be used 
05 50 €8 112A 2636 BLBS $ : Branch 
58 0360 BF 3C 1120 2637 MOVZWL #TRSC_NI_PROT,R8 : Else, provide a default value 
83 58 pO 11 ¢ 638 10$: MOVL R8,(R3)+~ ; Set protocol type 
83 0804 8F 860 11 639 MOVW #NMASC_PCLI_PHA,(R3)+ : Physical address = Phase IV address NET 
83 08 BO 113A 2640 MOVW #8, (R3S+ 3 8 byte string: 
83 01 BO 113D 2641 MOVW #NMASC_LINMC_SET,(R3)+ ; Set the address NET 
83 O00400AA 8F DO 1140 $66 MOVL #TRSC_RI_PREFIX,(R3)+ =: Phase IV NI prefix NET 
57 QOO000000'EF D0 1147 264 MOVL ETSGC_PT oR? 3 NET 
83 OF A? BO 114 644 MOVW RCB$W_ADDRTR7) , (R3)+ : Phase IV node number NET 
83 OF 8F 8B We 702 MOVW wit" PC A,(R3)+ ; Multicast addresses are: NET 
8 60 11 ry MOVW (R35T+ 3 8 byte strings NET 
8 1 BO 115A 264 MOVW #NMASC_LINMC SET,(R3)+ ; Set the addre NET 
83 030000AB 8F DO 115D 2648 MOVL #TRSC_AI_ALLROUI,(R3)+ ; Phase IV the reuters” multicast NET 
83 9 BO 1164 2649 MOV #TRSC_NI-ALLROUZ, (R3)+ NET 
05 O8A C 91 1167 2650 CMPB Regse_ “ETYC(R7) oMADIJSC_PTY PHAN ; If Phase IV endnode NET 
OD 12 116C 2651 BNEQ : use “all endnodes” * instead NET 
53 06 C 1168 $36 SUBL #6,R3 : of ‘‘all route NET 
83 040000AB 8F d0 (11 65 MOVL #TRSC_NI_ ALLEND1,(R ii : Phase IV “‘al eadnades"™ multicast NET 
8 0 89 1178 $38 MOVW #URSC INI AALL LEN D2. (R3)+ NET 
52 3 CS 1178 2655 208: SUBL ae oe RK 3 Compute size of of stdditional params NET 
51 08 AS C1 117F $28 ADOL R5,DLLQIOSL _P2(R5).R + Point to P2 buffer descriptor NET 
61 2 CO 113 65 ADOL Beoagl? Append these params to P2 buffer NET 
50 01 DO 1187 2658 MOVL #1,R0 Success NET 


_ 
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0 1188 3600 ig 
1188 2661 PLI_PPUNA_TAB: ; Parameter table for PPUNA pseudo-datal ink 
1188 066 -cnvtab pcli,pli,BuUs ; Receive buffer size 
He SESE RUBLE eater Teepe oot 
-cnv cli,pli, ; Number of buffers in poo 
00000000 1130 282 «LONG B . 3; Terminate the table . 
1198 $69 PLI_PPUNA: ; (used only for internal pay HS 
52 ED AF 9Q9E 1198 998 MOVA PLI_PPUNA_TAB,R2 ; Point to param translation table 
0105 30 119F 266 SBW By ICD _DEVBUF ; Build standard parameter buffer 
5 DD 11A2 2670 PUSHL R : Save position in P2 buffer 
83 0458 BF BO 11A4 2671 OVW #NMASC_PCLI_PRO,(R3)+ ; Protocol type = POINT 
B3., 90 D0 11A9 g67¢ MOVL § #NMASC-LINPR_ POL, (R3)+ 
83 pets 8F BO 11AC 267 MOVW #NMASC_PCLI_PRM,(R3)+  ; Promiscuous mode = OFF 
83 01 DO 1181 674 MOVL § #NMASC-STATE OFF, (R3)+ 
83 9619 8F BO 11B4 2675 MOVW $#NMASC-PCLI_MLT,(R3)+  ; Multicast address state = OFF 
83 01 DO 1189 676 MOVL §#NMASC-STATE_OFF,(R3)+ 
83 OBIA 8F B80 11BC 267 MOVW #NMASC_PCLI_PAD,(R3)+  ; Padding on transmits = ON 
83 00 dO 11C1 678 MOVL #NMASC_STATE_ON, (R3)+ 
83 gee 8F BO 11C4 2679 MOVW #NMASC_PCLI_BCH,(R3)+ ; Data perenne = OFF 
83 01 DO 11C9 2680 MOVL § #NMASC-STATE_OFF,(R3)+ |; (DLLTRN can't handle multiple CxBs) 
83 OBIC 8F BO 11CC 2681 MOVW #NMASC_ CRC,(R3)+#  ; CRC generation = ON 
83 00 00 11D1 $o8¢ MOVL $$ #NMASC-STATE_ON,(R3)+ 
83 OBIE 8F BO 11D4 268 MOVW #NMASC_PCLI_ACC,(R3)+  ; Protocol access mode = Limited 
83 02 DO 1109 2684 MOVL #NMASC_ACC_CIM, (R3)+ 
83 0821 8F BO 11DC 2685 MOVW ot PCLT_DES, (R3)+ ; Remote destination = (dead timer) 
83 08 80 11E1 2686 MOVW #8, (R3)+ 3 byte string: 
83 01 BO 1164 2687 MOVW #NMASC_LINMC_SET,(R3)+ ; Set the address 
83 000400AA 8F DO 11€7 secs MOVL #TRSC_NI_PREFIX, (R3)+ : Phase IV NI prefix 
11EE 2689 $GETFLD pti l,dd ; Get value of dead timer 
OA ED 11FB 2690 CMPZV #TR4$V_ADDR_AREA,- : Is area portion of address 0? 
00 58 06 11FD 2691 #TR4$S_ADDR_AREA,R8, #0 
OE 12 1200 $36 BNEQ 5$ :; If not, set it as is 
57 O0000000°EF 00 1s06 69 MOVL NETSGL_PTR_VCB,R7 ; 
008B C7 FO 1209 2694 INSV RCB$B_ROMEAREA(R7) ,- ; Else, insert our own area 
A 120D 2695 #TR4$V_ADDR_AREA, - 
58 06 120 696 #TR4$S_ADDR_AREA,R8 ; (leave R8 set for code below) 
83 58 B80 121 697 5$: MOVW RB, (R3)+ 3 Set remote destination address 
83 OBOE 8F B80 121 698 MOVW #NMASC_PCLI_PTY,(R3)+ ; Protocol type parameter code 
1218 2699 SGETFLD pli,l,ept 3; Get protocol type to be used 
05 50 8 1225 2700 BLBS ° 3; Branch if ok 
58 a002 8F C 1228 2701 MOVZWL #*XA002,R8 3; Else, provide a default value 
83 ; DO 1 3 A 10$: MOVL 8,(R3)+ ; Set protocol type 
83 a F BO 1 7 MOVW #NMASC_PCLI_PHA,(R3)+  ; Physical address = Phase IV address 
08 B60 1235 2704 MOVW #8, + 3 8 byte string: 
3 601 «BO 1238 2705 MOV #NMASC_LINMC_SET,(R3)+ ; Set the address 
83 O00400AA 8F D0 123 706 MOVL #TRSC_NI_PREFIX,(R3)+ =; Phase IV NI prefix 
57 a sae DO 124 707 MOVL NET$GC_PTR_VCB,R7 : 
OE A7 8 124 A MOVW WEOSU_ADORTR ),(R3)+ 3 Phase IV node number 
53 3 C3 1240 2709 SUBL (SP)+,R3,R2 ; Compute s ze of additional params 
51° 08 AS 55 C1 1251 2710 ADDL3 R5,DLLQIOSL_P2(R5),R1 |; Point to P2 buffer descriptor 
61 52 CO 1256 2711 ADDL areag’? ; Append these params to P2 buffer 
50 01 »? 1259 ay: MOVL #1,R0 ; Success 
05 125C 71 RSB 
1250 2714 
125D 2715 PLI_DMC: 


—————_—_—_—_——_—_——_ 
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v04-000 PLI parameter action routines -SEP-1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR; 1 (26) 
125D 71g - IF NDF OMC_MODEM ; Disallow controller functions if 
: 20 4 ; there is no modem support in DMC 
51 Re 125) at CLRL R1 3; Say ‘'start with LPD index 0°’ 
a9 ° 125F 0 BSBW N TEGET PLVECLPD ; one gee LPD 4 poy using this Line 
0550 €E8 1 $e 72) BLBS $ ; If LBS then found one | 
0000'8F AA 1265 27 ‘ BICW  #16$M_SHUTDOWN,- : i t issue SHUTDOWN" if device is 
65 1269 27 DLLQIO$L_FUNC (RS) ; not active 
AA 126A 2724 108: BICW #IOSM_STARTUP!- ; special case -- DMC does not fuprert 
1268 2725 10$M_CTRL,- 3 these modifiers in for its ' 
65 0000'8F 136r 4 § DLLQIO$L_FUNC(RS) ; aspect 
! oF 4 8 ~ENDC ; DF DMC_MODEM 
ana. 3 3H: i5er 730 SUBL3) = R5,R3 BLLGTOs P1(R5) ; Setup offset to characteristics buffer 
83 20 90 1274 2731 MOVB #0C$_ §C0 3)F 3; Enter device class 
83 01 90 1877 13 MOVB note Tae RS) : Enter device type 
137A at 3 For now, all Lines use the same buffer size. 
FC65 30 «127A 2736 BSBW NETSPLI L_BuUS : Get datalink buffer size 
83 $1 0 127D 2737 MOVW R1,(R3)F 3; Store the block size 
63 D4 1280 2738 CLRL (R3) ; Zero the characteristis 
1282 2739 $GETFLD pli,v,con 3; Get loopback field value 
05 58 €9 128F 2740 BLBC 3; If LBC not in controller loopback 
1938 741 SETBIT XM$V_CHR_LOOPB, (R3) ; Else set loopback bit 
13. 11° «+129 oe R 0$ 3; Don't bother with HDPLX 
1297 2743 20$: SGETFLD pli,v,dup ; Get duplex selector 
03 58 E99 12A&4 2744 BLBC ; LBS in RO if half-du _ 
12A7 745 SETBIT XM$V_CHR_HDPLX, (R3) : Put Line in half-dup 
83 12AA 2746 30S: TSTL (R3)# 3 Advance past character ietice 
50 O01 90 12AC 2747 MOVB #1,R0 ; Indicate success 
12AF 2748 RSB ; Return status in RO 
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v04-000 BUILD BUF = Build DLLQIO buffer -SEP-1984 02:18:18 (CNETACP.SRCINETCNFDLL.MAR; 1 (3) 
~SBTTL BUILD_DEVBUF = Build DLLQIO buffer 
; BUILD_DEVBUF - Build P2 buffer for SETMODE of Line or circuit 
: This routine is called to setup 3 standard P2 buffer for a Line or 
; circuit SETMODE function. The P2 buffer contains all the datalink 
3 parameters for the Line/circuit to be initialized. 
: Inputs: 
: R11 = 
$ R10 = 
$ R5 = Address of DLLQIO buffer 
3 R3 = Address of scratch buffer 
; R2 = Address of datalink parameter translation table (CNVTAB) 
; Outputs: 
: R3 = Updated pointer to end of scratch buffer 
: RO = Status code 


BUILD_DEVBUF : Build device param buffer 
MOVL 


VOOOOOCCOCBWVIWICWWVWWVIWOVIOIVIVIOOIWOWOOOWOOVOOCOOOOW m-—. 


DOViwmwor DOwosl DOViw Donn LloW wF SFOOOCCCOCOCOOCOOOOOOCOOOCOOOOO <37 
SQN NNN NNN NNN TTS 


5© O09 09 69 09 09 09 09 09 09 09 SII NSIS NN PAA AA AAAAAMMMIUIUIVMIVIUIUTIU 
AR=OOWDONAMN EWN SO OD NAME WIN OOO NAME WIN O OONOAUES WO 


| 
| 
PLI CNR address 
PLI CNF address 
| 


PIAA AIDIPIPODINYIPDNINIPYNINININPIPINININININIPYNIPIRSPININPINININPININININININI NNO NyPononofnonopnoponfnrrnrnrnn oF 
PIPDPIPOPININIPDPIPIPIPIPPIPIPPIPDPIPYPINYINIPIPIPIPINIPYINININPININYIPINIPIPIPIPIPUPINPIPOPUPNPPONPoNyfponyjnronnn "a. 


ee ee a ed ed ed a dd 8 8 HS bt a a 8 a 8 st st ds a a a 


08 AS 8653 ~=«©0~+00 R3,DLLQIO$L_P2(R5) ; Setup pointer to device parameter 
; buffer descriptor ; 
53 08 co ADDL #8,R3 ; Allow 8 bytes for the descriptor 
08 B85 53 cf MNEG R3,@DLLQIO$L_P2(R5) ; Prepare for size calculation 
nea 33... SUBL R5,R3,-4(R3) ; Setup offset to param buffer 
0070 8F 6B PUSHR #@M<R4,R5,R6> : Save regs 
56 52 00 MOVL R2,R6 ; Point to translation table 
66 D5 10$: TSTL (R6) ; At end of table? 
s> i BEQL 40$ :; If EQL then yes 
30 66 =60C~ EO BBS #CNVTABSV_RO,(R6),30$ ; Skip if should not send to driver 
7E OA AB 90 MOVB CNRSB_TYPE(R11),-(SP) ; Enter database i.d. 
7. 6 EXTZV #CNVTABSV_FMT,- ; Get param format type 
51 66 02 D #CNVTABSS_FMT,(R6),R1_— ; 
7E 51 90 D MOVB R1,-(SP) ; Append to param database i.d. 
10 ~=OEF D EXTZV #CNVTABSV_INT,- ; Get internal param i.d. index 
51 66 O€ D #CNVTABSS_INT,(R6),R1— ; 
fo) oe E MOVW R1,-(SP) ; Append param i.d. P 
59 BEDO E POPL ; Get compelete param i.d., fix stack 
3FFF 8F 659 Bi E 79 CMPW R9,#CNVTABSC_INTRNL ; Datalin only parameter? 
_ ee E 79 BEQL : If so, just ignore it 
ED19" 30 12D 279% BSBW CNFSGET_FIELD : Get the field value 
19 50 =€9 F 795 BLBC RO, 308 ; C then param is not set 
00. «OF F 796 EXTZV #CNVTABSV_NMA,- ; Get the NICE parameter code 
50 66 OC F 797 #CNVTABSS_NMA, (R6) ,RO 
83 50 80 F 798 MOVW RO, (R3)+ ; Enter the NICE param i.d. 
02 51 D1 12FB 2799 CMPL  R1,#NFBSC_TYP_STR > String ? | 
7 13 F 00 BEQL :; If EQ yes 
83 8 00 0 B3 MOVL RB, (R3)+ ; Enter the parameter value 
ro oe 8 ¢ BRB 30$ ; Continue 
83 7 8 5 3 208: MOVW R {na} ; Enter the string length 
63 68 7 08 4 MOVC3 = R7, (RB), (R3) ; Enter the string text, update R3 
86 OD bE 05 30$: TSTL (R)+ ; Advance to next table entry 
eh E 2806 BRB 10$ : 


| 
Loop 
| 


) 
| 
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Whus000 BUILD DEVBUF = Build DLLQIO butter Breen eBs Bb ai9k FARTYES Sacre von mansy 2%? (95), 

O07 $5 BR TNE BARE MOH FRAME AERP races) | HSSSECES SMe catcutats 
. ; Lomplete size caiculLation | 
8B A H 3 1318 g SUBL Re BULA 10st bg (Ro) $ fonvert pointer to offset 
50 00000000' 8 00 fs 10 MOVL #55$_NORMAL7R : Setup status 


| 
| 
| 
| 
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v04-000 NETSCVT_NMA_INT - Convert NMA to NFB cod 5-SEP-1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 © (28) | 
! r 13 ‘ -SBTTL NETSCVT_NMA_INT = Convert NMA to NFB code | 
1324 15 ; NETSCVT_NMA_INT = Convert an NMA code returned by a datalink driver 
i 4 1g ; to a internal NFB parameter code. 
1324 18 3; Inputs: 211 = CNR address 
} : Hs 5 R9 = NMA code 
1324 8 1 ; Outputs: R9 = NFB code corresponding to NMA code | 
! ri ¢ s (or original, if could not map the code) 
13 4 : 4 NETSCVT_NMA_INT:: ; Convert NMA i.d. to internal i.d. 
26 «€©BBOUd1324 5 “PUSAR #*M<R1,R2,R5> 3 Save regs 
55 QOOO016C'EF 9E 1326 2826 MOVAB CRI_TRN_TAB,R5 3; Assume CRI database 
04 91 1320 2827 CMPB = s #NFBS$C_6B_CRI,- : Circuit database ? 
OA AB 13¢F 828 CNRSB~TYPE (R11) : 
13° 1331 2829 BEQL $ ; If EQL then yes 
55 OOO0001BB'EF 9E 1333 830 MOVAB PLI_TRN_TAB,R5S ; Else PLI database 
03 10 133A 2831 10$: 6BSBB CVT_NMA_INT ; Convert the i.d. 
26 «6BA O133C HY POPR #*°M2R1,R2,R5> ; Restore regs 
05 133€ 283 RSB 
133F 2834 
133F 2835 ; : 
tH 3637 ; Do the actual conversion of NMA to NFB parameter codes. 
133F 2838 ; Inputs: 
133F 2839 ; R9 = NMA i.d. code, with format type 
133F 2840 ; R5 = Conversion table address 
133F 2841 ; 
133F ot) 3; Outputs: 
133F 2843 ; Ri = Last table entry used (zero if end of table) 
133F seee 3 RO = Status indicator 
133F 2845 ; 
133F 2846 ; R2 is destroyed. 
133F seer 3 
133F 2848 
133F 2849 CVT_NMA_INT: ; Convert NMA i.d. to internal i.d. 
52 59 OC 00 EF 133F 2850 EXTZV #0,#CNVTABSS_NMA,R9,R2 ; Get only NMA param i.d. 
50 D& 1344 2851 CLRL RB 3; Assume conversion error 
51 85 DO 1346 $26 40$: MOVL (R5)+,R1 ; Get next table entry 
20 13 1349 285 BEQL 100$ : If EQL table is exhausted, report 
134B 2854 3; that the driver is not supported 
1348 2855 ASSUME NFBSV_INX Ea «(0 
1348 2$ ASSUME NFBS$V_TYP EQ 16 
! m1 2 ASSUME NFBSV_DB EQ 24 
00 ED 1348 59 CMPZV) = #CNVTABSV_NMA,- F 
52 51 OC 134D 2860 BCNVTABSS_NAA RI R2 : Is this it? | 
F4 12 «4 28 61 BNEQ 40$ : If NEQ then keep trying 
105 EF 135 os EXTZ¥ #CNVTABS$V_INT,- ; 
7E 651 ~~ ~«O€ 1325 6 #CNVTABSS_INT,R1,-(SP) ; Put internal code on stack longword 
1E EF 1357 2864 EXTZV #CNVTABSV~FMT.- : Get field format type | 
52 51 9¢ 1359 2865 #CNVTABSS_FMT,R1,R2 3 ; 
02 AE 90 135¢ 308 MOVB =6R eset) ; Insert format into TYP field. 
03 AE OA AB 90 1 rt 6 MOVB CNRSB_TYPE(R11),3(SP) ; Insert database id into DB field 
59 BEDO 136 68 POPL ; Get full field i.d., cleanup stack 
50 01 DO 1368 69 MOVL #1,R0 : Indicate successful conversion 
| 
i 
| 


| 
| 
| 


o 
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05 1368 2870 100$: RSB 
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NETCNF DLL - Datalink database action routines 16-SEP-1984 01:15:07 VAX/VMS Macro V04-00 Page 65 | NET 
v04-000 TRAN_DEVNAM = Translate device name = 3Eb= 1982 18:18 NETACP.SRCIJNETCNFDLL.MAR; 1 7 (33) Tab 
} oe te - -SBTTL TRAN_DEVNAM - Translate device name 
: ot oe ; TRAN_DEVNAM Translate Network Managment name to VMS device name | 
136C 6 ; This routine translates a network management Line/circuit name to a VMS 
136C 77 ; device name. Network management Line names have the format ‘‘dev-c-u'’ and 
136C 4 ; circuit names have the format ‘‘dev-c-u.t’’ where c,u,t are ascii-decimal | 
: ot 4 3; strings and ‘‘dev’' is a network managment device numeric. | 
136¢ 1 ; INPUTS: R8 Pointer to network management name | 
136C ¢ 3 R? Number of characters in name 
! oe 7 3 R3 Output buffer pointer | 
136C +H ; OUPUTS: R8 Pointer to first unparsed character 
136C 2886 ; R7 Number of unparsed characters | 
136C 2887 ; R6 Pointer to device table entry 
136C 2888 ; R5,.R4 Garbage 
1366 889 ; R3 Advanced by characters in translated name 
136C 2890 ; R2,R1 Garbage 
136C 2891 ; RO Status 
136C B38 ; 
136C 2893 ; ALL other regs are perserved | 
136C 2894 ;- 
136C 2895 TRAN_DEVNAM: 
136C 2896 ; | 
1306 +44 ; Parse the device mnemonic, locate translation table entry | 
4F 10 136C 2899 8SBB PRS_MNEMONIC ; Parse name, locate entry in table 
48 50 £9 136€ BLBC_ RO,T10$ : If LBC then error | 
63 ; Fe oo tory MOVC3 R2,(R1),(R3) ; Move the VMS device mnemonic 
08 OA AG 91 1375 CMPB =—-d DEVTRNSB_DEV(R6) ,ADEVTRNSC_DEV_X25 ; X25 circuit name? | 
33)6CUCS 132 BEQL 40$ :; If so, then use only device name | 
1378 3 dev-c-u.t 
1378 : We've parsed up to here “* Translate the controller specifier. | 
54 2E 9A 1378 MOVZBL #*A‘'."',R4 ; Setup field delimiter for single-unit 
137E ; device (i.e., no unit field) 
00 €1 137E BBC #DEVTRNSV_MULTI,- : If BC then not multi-unit device 
03 OC A6 1388 DEVTRNSB_CHAR(R6),20$ ; and there's no unit field 
54 2D 9A 133 MOVZBL #*A''="",R4 ; Setup field delimiter . 
7E 10 1386 20$:  BSBB  PRS_DECIMAL : Convert the controller to binary 
31 50 €9 1388 BLBC RO,110$ : If LBC then error 
36 8 1 eB TSTL ; Any decimal characters parsed ? 
¢ 13 1380 BEQL 100$ :; If EQL no, illegal name 
19 . a +4 CMPB R1 #25 ; Within range (O=A, 25=2) 
23 «1A 1392 BGTRU 1008 : If GTRU then out of range 
8S St 640 SFB ' hed ADDB MAR RI, (R3)+ ; Store as VMS controller designator 
< 1399 ; dev-c-u.t 
' +44 ; We have parsed up to here 7 Parse the unit number. 
D4 1399 €LRL = RO ; Assume single-unit device | 
00 €1 1398 BBC #DEVTRNSV_MULTI,- ; If BC then singlecunit device and 
0B OC A6 139D DEVTRNSB_CHAR(R6),30$ ; there's no unit field 
4 2— QA 13A MOVZBL #*A"'."’ .R4 ; Setup field delimiter 
61 10 13A BSBB ss PRS_DECIMAL : Convert the Ascii unit to binary 


Ete 


50 
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: Move to aR3 a2 Asc 
; Indicate success 
; Take common exit 


#SS$_IVDEVNAM,RO 


es lOO 


oaowow> 


; Error in translated name 
; Return status in RO 


f LBC th 
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atabase action routines 1 mi iets 9 93:13:02 AX/VMS Macr 
- 4 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 


WET CHF BLL - Data 
v04-000 PRS_MN Parse device mnemonic “-SEP-19 


f -SBTTL PRS_MNEMONIC = Parse device mnemonic 
; PRS_MNEMONIC = Parse device mnemonic 


INPUTS: +, Pointer to device name 
R Characters left in device name string 


OUTPUTS: R8 Advanced by characters parsed 
R7 Reduced by characters parsed 
a Pointer to device table entry 
PR Size of network management device mnemonic 
RG Pointer to network management device mnemonic 
R2 Size of VMS device mnemonic 
R1 Pointer to VMS device mnemonic 
0 NORMA if successful 


SS$-IVDEVNAM otherwise 
ALL other regs are unchanged 


“We Se Be Se Be Oe Se Se Be Se Be Se Se Sees 
pd 


WOODOOOOOOVOOOOOOOOOOOOO0O 


l d 
E C 
138 
1358D 
138) 
138D 
13B8D 
138D 
138D 
13B8D 
13B8D 
138D 
138D 
13BD 
138D 
13B8D 
138D 
13B8D 
fg 
138D 
138D ~ 
138D RS_MNEMONIC: 
53 DD iter PUSHL R3 3; Save reg 
13a + 3; Parse the device mnemonic 
50 0000'8F 3C 13BF 296 MOVZWL #SS$_IVDEVNAM,RO ; Assume error in name format 
54 58 00 iets 96 MOVL RB,RS : Make a copy of the name pointer 
55 01 CE 13C7 2964 MNEGL #1,R5 3 Init the character count 
55 06 13CA 2965 108: INCL R5 ; Update the character count 
03 57 +F5 13CC 2966 SOBGTR R7,20$ 3 
0030 31 13CF 2967 BRW 106$ 3; Take common exit to report the error 
20 88 91 1308 968 20S: CMPB (R8)+,#*A''="' : Mnemonic delimiter ? 
ji 1303 34 BNEQ 10$ ; If NEQ then keep trying 
1307 44 : Locate the table entry 
56 OOOOO01F*EF 9E 1307 395 MOVAB ODEVTRN_TABLE-DEVTRNSC_LENGTH,R6 ; Prepare to scan device table 
56 OD CO 13DE 2974 30S: ADDL #DEVTRNSC_LENGTH,R6 3; Advance to next entry 
51 66 9A 13E1 2975 MOVZBL DEVTRNSB_RETMAN(R6),R1 ; Get Length of network management name 
16 13 13€4 2976 BEQL 40$ : If EQL then at end of table 
55 51 D1 13€&6 2977 CMPL R1,R5 3 Same size ? 
F3 12 13€9 2978 BNEQ 30 : If NEQ no, advance to next entry 
64 55 29 13€B 2979 CMPC R5,(R4),- : Is this it ? 
01 A6 13EE 2980 DEVTRNST_NETMAN(R6) ; 
EC 12 13F 981 BNEQ 0$ 3; If NEQ then Loop : 
52 06 A6 QA 13F 9 § MOVZBL DEVTRNSB_VMS(R6) ,R2 ; Setup Length of VMS mnemonic 
51 O07 AG YE 13F6 29 MOVAB * eae scaseecceati ; Setup pointer to mnemonic 
03 11 13FA 2984 BRB $ ; Take common exit . 
51 54 7D I35FC 2985 40$: MOVa R4,R1 3; Make a copy of the Net Man. mnemonic 
50 99° 09 13FF 29 6 308: MOVL § $*#SS$_NORMAL,RO ; Indicate success 
8ED 1008 987 100$:  POPL R3 3; Restore R 
05 140 988 RSB 3; Return status in RO 


| 
| 
| 
| 
| 
; If GTR then more characters are left 
| 
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v04-000 PRS_DECIMAL = Parse decimal number -SEP-1984 02:18:18 CNETACP.SRCINETCNFDLL.MAR;1 (31) 

-SBTTL PRS_DECIMAL = Parse decimal number 
PRS_DECIMAL = Convert Ascii decimal number to a binary value 
; INPUTS: R 
R Address of str 
R Field delimiter 


: OUTPUTS: 
Reduced by characters parsed 
Number of numeric characters parsed 


Binary value 
’ if successful 


7 
8 
4 
: Advanced by characters parsed 
2 
0 SS$_NORMAL 
SS$_INVDEVNAM otherwise 


PRS_DECIMAL: Parse/convert ascii decimal to binary 


a i a a dd dd dd | OT 
BERLE PPP PPP PPP PPP PPP PPP PPP L PLE LEE OO 


WNRIPINININININ 2 SS  S | “QDOOCOCOCOCOOOOOOCOOOOCOCOSOOO --—- 


PBA AMD POUWOM OM ONL DDWAAAAAAAAAAAAAAAOAO 


GOOCOOOCOSCSCOCOOSCOSOOOSOSOOOOSOOOOOOOOOOOOO0O0O 
PNNNNIN 2 2 2 OP tM DOOOOOOOCOCOOOOOOOOOOO 


MEW SO OONAUE WN 9 ODNAUES WN O OONAULS WN O 


51 7 L R1 ; Init binary value, character count 
57 07 10$: DECL R7 3 Account for next character 
1—€ 19 BLSS 15$ 3; If LSS then done 
50 88 9A MOVZBL (R8)+,RO ; Get next character 
50 54 91 CMPB R4,RO 3 Is it the delimiter? 
18 «13 BEQL «= 208 : If EQL then done 
50 30 3 SUBB #*A''0'',RO ; Convert to binary 
. ii BLSS 30$ : If LSS then not decimal 
09 50 91 CMPB RO,#9 3; Decimal ? 
13° «1A BGTRU 308 : If GTRU not decimal 
52 06 INCL R2 3; Bump number of digits 
51 OA C4 MULL #10,R1 ; Shift total one digit 
Oc 1D BVS 30$ : If VS then R1 has overflowed 
51 50 CO ADDL RO,R1 3; Complete the sum 
3 11 BRB 10$ : Loop 
5 Be 15$ CLRL R7 ; Repair R7 
50 00° 3¢ 20$ MOVZWL S“*#SS$_NORMAL ,RO ; Indicate success 
05 11 BRB 40$ ; Take common exit r 
50 O0000'8F 3C 30$: MOVZWL #SS$_IVDEVNAM,RO ; Indicate invalid device name 
05 3 40$: RSB ; Return status in RO 


NET 
vO4 
Count of characters remaining in the string 

ng 
| 


K 4 
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vouc DEV_CNT_QIO = Get device counters gr SEI 4 REAL NETACP.SRCINETCNFDLL.MAR; 1 . (3) 
1é q 7 -SBTTL DEV_CNT_QIO = Get device counters 
1? f : ; DEV_CNT_Q1O = Get counters from device driver 
1437 1 ; INPUTS: f Address of next byte in output buffer 
1437 § 3 8 Channel to device driver 
1 , Z s R $Q10 function code 
1437 5 ; OUTPUTS: R3 Updated to next free byte in output buffer 
1? 4 8 § ; RO SS$_NORMAL 
1? 4 8 : R1-R2,R4-R5 are destroyed. 
1437 3040 bEV_CNT_QIO: 
54 53 00 1437 41 MOVL R3,R4 ; Save output buffer pointer 
02 £1 143A 4g BBC #NETSV_CLRCNT,- : If BC, don't clear the counters 
05 aaa 488 14 4 NETSGL_FLAGS i. 3 
50 OO00'SF AB 1442 3044 BISW #10$M_CLR_COUNT,R : Else clear the counters 
itd ‘EF 7C 144 045 20S: CLRQ Qiow a : Init I10SB eB 
51 000000 ger 9E 1440 3046 MOVAB TMPPOF-DESC,R1 ; Get address of TMP_BUF descriptor 
55 Q00000033'EF 9E 1454 3047 MOVAB TMP_Q_BESC,RS : Get address of our buffer descriptor 
65 04 A1 61 C1 1458 3048 ADDL (R1T,4¢(R1),(R5) 3; Get ending buffer address 
53 C2 1460 049 SUBL 3, (R5) : Setup bytes left in buffer 
04 AS 53 dO 146 050 MOVL R3,4(R5) ; Point to it 
1467 3051 $Q10W_S FUNC = RO,- 
1467 b2¢ CHAN = R2,- 
1467 305 EFN = #NETSC_EFN_WAIT,- 
1467 3054 IOSB = Q10W_Q-10S6,- 
1467 3055 P2 =R 
50 O000002B'EF 3C 1486 3056 MOVZWL QI0W_Q_10SB+2,R0 ; Get_ number of bytes returned 
17 13 1480 3057 BEQL 90$ ; If EQL then none 
53 50 CO 148F 3058 ADDL RO,R3 3; Advance R3 
50 04 D1 1492 3059 CMPL #4,R0 3 At least 4 bytes ? 
OF 14 1495 3060 BGTR 90 : If GTR no, return all bytes 
C000 8F 64 B81 1497 3061 CMPW  (R4),WNETSC_NMACNT_SLZ ; Seconds since Last zeroed ? 
08 12 149C¢ beg BNEQ 90$ 3 NEQ no, return whats left 
50 04 Ge 149E 306 SUBL #4,R0 ; Reduce by size of counter field 
64 04 A4 50 ¢ 14A1 3064 MOVCS RO,4(R4),(R4) 3; Shift remaning counters, setup R3 
50 00° 3C 14A6 3065 90S: MOVZWL S*#SS$_NORMAL ,RO ; Indicate success 
05 14A9 3066 RSB 3; Done 
14AA 3067 
14AA 3068 .END 
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Symbol table ~ Datalink database action routines — 1p-$tP~13be Ob:iaise UMetACP.ceesneveuroce.mans1 2% cf 
ym Fy 
FR 02 CRI_PSI_TAB 10¢ R 2 
it ha . ° ° Of CRI7T0. PSI 78 f j 
$$_NSPMSG = 0 CRI-TRR. TAB SE R 4 
S_TRIASG = 9000 CVTNMA.INT 1S3F R06 
$5 TRAMSG = s 4 
TOTH_B = p CXBSC OVERHEAD ° 88 f 
SWIDTH_L . DEAL PLVEC 000806 R 04 
IDTH_W ad 4 DEFAULT SCAN RHEE R xX 04 
ACPSC_STA_F = 9000000 $V NET = 90000000 
CPSC"STA_H = 00000005 DEVSV IN = §0000020 
ACPSC-STA=I = 00000000 DEVNAR,C SIZ. ° o¢ 
CPSC“STACN = 90000001 DEVTRNSB- = Beppo e 
CPSC_STALR 4. TRNSB_NETMAN = 00000000 
ADISETPTY AREA = $000000 DEVIRNSB-PRO : 09000008 
“PTY PHS = 00000004 DEVTR $B_ M > 
tert : IBSse eV I A : asset 
ee : BESS BVA BEV-B : SHES 
ioe i Ta : BESS 
BUILD DEVBUF 00001280 R 04 DEVTRNSC_DE PCL = 99000002 
CCBS$L UCB = 00000000 DEVTRNSC_DEV_ : = 90000009 
CLEAR-VOLATILE a=. = DEVIRNSC-DEV-UNE = 00000000 
Cer eeCh FIELD eeeeeere xX 04 DEVTRNSC DEV Xc5 : 4 44 
CNF SGET_FIELD tenereee =X 04 At. a = Bo0Db0b, 
CNFSKEY_ SEARCH eeeeeeee XK 04 DEVTRNSM_MUL i! = 00000001 
CNFSPUT~FIELD teeneere X 04 DEVTRNST_NETMAN = 00000001 
a = $0000013 DEVIRNSV-RULTI = 90000000 
ENFS-OUIt Ne” = 90000002 DEV CNT G10 Bo001as7 ROO 
ENESTTAKE CURR = 0000000 DLLGTOSC_LENGTH . ae dt 
CNRe TBE ne = 90000008 DLLalost Pt = 90000004 
paige farm tte aa = SRRnie 
ENVTABSAC INT : daittdd Dis. MCIT . : 90000001 
CAVTABRO : 00901000 DVIS -DEVNAN - 09000026 
EMT = 00000002 EVCS$C_SRC_CIR . 
ENVTABSS~ INT = 9000000 EVCSC-SRCCLIN 01) i 
TABSS_NMA = 0000000¢ oer pet BL 000002¢7 R 04 
wy os Bod = 96000016 TOSA. CLR COUNT evereres =x 06 
CNVTABSV_FMT = one tE LO SRTCIRE teeneeee X04 
CNVTABSV_INT = 00 : 01 IOSMTRD COUNT eeeeeeee X06 
CNVTABSV_NMA = 000 44 10S” SHUTDOWN eeeeeeee XX 04 
CNVTABSV-RO ad pet 1OSM~ STARTUP keeekere xX 4 
CRI CI 7 . E R 04 $ KCPCONTROL RERRRERE K 4 
CRI-CLR_TAB 000104 R = 02 oem cEuSeNOne texeneee X04 
CRI-DMC™ QO00E62 R 4 Hs de teeeeeee X04 
CRI-DMP E5E R 4 ISCOUENTTTEWAN Reeeeeee xX 4 
CRI-FOREIGN 24 ae JAM CN OO0001EB R04 
CRI-PCL 535 R 4 a NTERS eeeeeere xX 4 
CRI“PSI_SIZ . LOG_COU 
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Symbol table ety 7 83:13:88 ENETACE. SREINETCNFDLL «MARS 1 ’ (32) 
LPDSB_ASTCNT = 00000018 NETSC_MAX_OBJ 2 FF 
PD$SB_CNT_IFL = 4F NE TSC_MAX-WQE 2 14 
LPD$B_CNT-LON = 4 NETSC_MINBUFS1Z = ‘ 
LPD$B_PLVEC = NETSC_NMACNT_SLZ = 

PDSB_PTH_INX = NETSC_TID_ACT = 0000 0 
PD$B_SUB_STA = NETSC_TID_RUS = 8 1 
LPDSC_CNT_SIZE = 6 NETSC_TID-XRT = 8 

SL_ABS_TIM = 00 3 NETSC_TRCTL_CEL = 444 

LPDSL_CNT_APR = 00 A NETSC_TRCTL-OVR 2 8 38088 
LPDSL_CNT_DPS = 00 42 NETSC-UTLBUFSIZ = 00001000 
LPDSL_CNT_TPR = 0003E NETSDEALLOCATE eeeeeere § X 04 
LPDSL_CNT_TPS = BR 078 NETSDECLARE_PSI eeeaeeee =X Be 
LPDSL_UC = 1 NETSDEFAULT_CRI 00000368 RG 4 
LPD$V_BC = QO000000A NETSDEFAULT PLI 00000420 RG 04 
LPD$V_DLE = 00000002 NETSDELETE_CRI Q0000A78 RG 04 
LPDS$SV_RUN = 00000004 NETSDELETE PLI OOOOOAC6 RG 04 
LPD$V_x25 = 444 64 84 NETSDLL_OPR_SET eeneeeee § X 04 
PDSW_CH = 00000014 NETSGET_PLVECLFD eeeeeneee XX 04 
LPDSW_CNT_ACL = 0000004A NETSGET-X25_CHAN eeeeenee XX 04 
LPDSW_CNT_TCL = 0000004C NETSGL_CNR_CNI weeeeeee =X 04 
LPDSW_DR = aaa tgs NETSGL_CNR_NDI eeneenee XX 04 
LPDSW-STS = 00000022 NETSGL_CNR-PLI eeeeeeee § X 04 
LPD_CAT_TAB 00000000 R 02 NETSGL_FLAGS eeeeeere XX 04 

x"C_DE = 0000000F NETSGL_PTR_LNI eeeeeree XX 04 
MOVE_FMT_CNT teeeeeee § X 04 NETSGL_PTR VCB eenteeee XX 04 
NETSALLOCATE eeenenee = § X 04 NETSGL_SRCA2_ID aeeneeee =X 04 
NE TSALONPAGED teeeeeee XX 04 NETSGL_ eeeeeeee XX 04 
NETSAPPLY_DFLT eeeeeeee XX 04 NET$GQ_SRCH2 KEY eeeeeeee = X 04 
NETSBINZASC eeeeeere =X 04 WETS6Q_SRCH REY aeneneee X 04 
NETSCRI_L_BLO 00000889 RG 04 NETSGW_X25_ CHAN eeeneeee = X 04 

TSCRI_L_DRT 0CO00B5D RG 04 NET$G_CRI_BOCMP eereeeee =X 04 
ETSCRI-L-LIT aaa: RG 04 NET$G_CRI_DLM eeenenee § X 04 
NETSCRI_L_MST 00000C05 RG 04 NET$G_CRI_DLMOUT eeaneeee XX 04 

TSCRI_L_PNA popoeDe RG 04 NET$G_CRI-NI eeeeeeee = X 04 
NETSCRI_L_SUB panes e RG 04 NET$G_CRI_TRN eeeeneee = § X 04 
NETSCRI_S_CHR Q0000E12 RG 04 NET$G_CRI_X25 eereeeee XX 04 
NETSCRI_S_CNT QOOOODSF RG 04 NET$G_PLI_DDCMP eeeeeeee =X 04 
NETSCRI_-S_COL BoD ORC IA RG 04 NET$G_PLI-LAPB aeeeeeee = X 04 
NETSCRI_S_DEVNAM 8 OOOCDA RG 04 NETSG-PLI-NI eeeeeeee = X 04 
NETSCRI_S_LOO a4tty RG 04 NETSINSERT_CRI 0000048C RG 04 
NETSCRI_S_PNN ia 4 RG 04 NETSINSERT_PLI QOOOOSEF RG 04 
NETSCRI_S_VMSNAM 0 poco RG 04 NETSJNX_CO aeeeeeee = X 04 
NETSCRI-V"-LCK ity 4 RG 04 NETSLOCATE _LPD eeeeeeee = X 04 
NETSCVT_NAA_INT 000) 24 RG 04 NETSM_MAXLAKMSK = 000003FF 
NETSC_ACT_TIMER = OOS NETSNDI_BY_ADD eeereene 04 
NETSC_EFN_ASYN = it NETSPLI-L_BuS QOQOOEE2 RG 04 
NETSC_EFN_WAIT = 1 ETSPLI-L-PLVEC QOOOEDA RG 04 
NETSC_IPL = 7 NETSPLI_L_SUB b8 orD? RG 04 
NETSC_MAXACCFLD zs ETSPLI-S"CHR 00107F RG 4 
NETSC_MAXLI 2 F NETSPLI-S~CNT OOOOFC7 RG 4 
NE TSC _MAXLNK = FF NETSPLI_S_COL QOOOF 26 RG 04 
NE TSC_MAXNODNAM = 00000006 NETSPLI-S-DEVNAM $8 F60 RG 04 
NE T$C_MAXOBJNAM = 00 oC NETSPLI-S”VMSNAM OO00F40 RG 04 
NETSC_MAX_AREAS = F NETSPLI-V-LCK S RG 4 
NETSC_MAX_LINES = 40 NETSPRE-QTO_CRI RG 4 
NE TSC_MAX_NC = 6E NETSPRE-QIO-PLI 38 C RG 4 
NETSC~MAX_NODES = FF NETSREMOVE_CRI OB2D RG 4 
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) 
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_ Serer 
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NETCNFDLL 

Symbol table 
“QUAL 
QUAL 
QUAL 


NETCNFOLL 
Symbol table 


NSPSS_MSG~SP1 
NSPSS_NSPASG 
NSPSS QUAL 


NSPSV_ACK_ 
NSP$V-ACK VALID 
NSPS$V_DATA_B 


P4BUF "SIZE 
PLI_B-STATE 


PLI-CLR_TAB 
PLI~CNT~TAB 
PLI~OMC 
PLI-DMP 
PLI~FOREIGN 
PLIPCL 
PLI~PPUNA 
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PSI~PLI_CLR_TAB 
100_Q Toss 


SEND. TO-PS1 
SHO_PLICRI 


RITLCK 
RE PSI _PARAMS 
PRESS AREA 
SASSIGN 


Sane eee eT mel 
£waz2ze- Oo 
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keekeeee 6X 04 
eeekeene GX 04 
keeneane 6X 04 
eerenene 6X 04 


7 paseyes Macro V04-00 Page 74 
8 (CNETACP.SRCINETCNFDLL.MAR; 1 (32) 
118B R 04 
Set | 
000001 R 08 | 
FIR 04 
$8 9188 fi 02 
10E3 R 04 
0000004 
RRARREEE x 04 
Rktkkeee x 04 
RRRAKHEE x 04 
RRARKRREE x be 
RHRRRHER x 4 
RRRRHREE x 04 
eeekeeee x 04 
00000013 R 04 
00001406 R 04 
0000138D R 04 
0000012C R 02 
4444 R 03 
00000031 R 03 
0000008A 
00000088 
0000002C 
QO00000E 
0000007E 
00000078 R 04 
00000938 R 04 
QOO0019E R 04 
00000002 
00000009 R 03 
Rekkeake x 04 
RRRRRREE x 04 
Rkkeekee x 04 
ReeKKHEE x 04 
ReeRRREE x 04 
Rekekeee X 04 
kkeeeeee x 04 
keekkeee x 04 
000002F4 R 04 
ReKEREE x 04 
| 
| 
} 
| 
| 
| 
} 
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16-SEP-1984 01:15:07 VAX/VMS Macro v04-00 Page 75 | 
Symbol table ioe fi HERE ENETACE.. SREINETONFDLL. MAR:1 sr! 
R = 1F TR4$R_QUAL = 0 
tk $85 GOAL RSG § = 20900 TR4SS"ADDR_AREA = og | 
aa a = 333388 Tag: guRP=DEs = Bee 
HE TEE aA : BSSoH iE a : HBSS 
HERE : Sse i : ASS8e 
TRESCRSE=ROUT = 90000007 TROSS“RTFLG VER : 9900009 | 
TR3SC "MSG ~STR2 = 900000 3 TR4$S-SCLASS_57 = 0000000 
$C"MSG VERF = 0000000 TR4$S_TR4MSG = 00000002 
TRaSmoReeoRTE = 90000002 TROSV-ADDR-DEST : 19000000 
tr SmoRECE PH2 = §0000046 TR4$SV_RTFLG_ 53 = 00000000 
TR3SM-RTFLG ROR = 00000008 TR4SV-RTFLG_INI = 00000005 
TR3SM-RTFLG-RTS = 00000010 TR4SVRTFLG-LNG = 90000002 
TR3$SR~QUAL = 00000000 TR4SV-RTFLG_ROR = 0000000 
TR3$S QUAL = 00000001 TR4SVRTFLG-RTS = 00000004 
TR3$S QUAL = 00000001 TRGSV-RTFLG-VER = 00000006 
TR3$S_QUAL RTFLG = 00000001 TR4$V_SCLASS_1 = 00000001 
TR3$S-RTFLG 0 = 00000003 TR4SV7SCLASS_57 = 00000005 
at : SaHH WEES 8 : Saunas 
TR3$V_MSG CTL = = 
V~MSG~ = 00000001 R4SV~SCLASS_METR = 00000000 
wsay-ente. 02 : seeH iisiggudae nom * SOPH go 
T = 
TRSBVATTLG-f = 89000007 UCB BEVCCass = B99G0046 
IRSey-RiEteo Ron = §0900008 UCBSL~DEVDEPEND = 00000044 
TRESV-RTFLG-RTS = 00000004 UCBS$W~DEVBUFS1Z = 00000042 
TR4$$$_QUAL~ADDR = 00000000 X25 CAT TAB 00000024 R 02 
TR4$$$_QUAL_RTFLG = 00000000 xng0_ CHR_HDPLX = 00000002 
ita eS = 0200008 OEY CHIR-Hoe = 90900000 
TR4SC~BCEMID2 = 99000000 XMSV~STS"ACTIVE = 00000008 
TR4$C~BCR-MID1 = 030000AB _$$_~ = 0O0000EF e 
TR4$C_BCR-MID2 = 00000000 4 
TR4$C~BCTSMUL > 90000008 
TR4$C~END_NODE = 0000000 
TR4$C~HIORD - 0004004A 
TR4$SC~HSZ_DATA = 00000015 
TR4$C~MSG~BCEHEL = 00000000 
TR4$C "MSG -BCRHEL = 00000008 
TR4$C_MSG_LDATA = 9900 9 
TR4$C_MSG_RDATA = 
TR4$C_~PRO_TYPE = 9000 6 
TR4$C-RTR-LVL1 = 000 9002 
TRGSC-RTR-LVL2 = 90000 
TR4SC~T3MOLT = 000000 
TR4$C_VER_HIB = 000000 | 
TRGSC~VER“L : 900000 | 
TR4SM_ADDR_AREA s Foo 
TR4$M_ADDR_DEST s FF 
TRGSM-RTFLG_INI = 0 20 
TRGSM_RTFLG_LNG = 4 
TROSM_RTFLG_ROR = 44 9 
TR4SM_ “RTFLG_ RTS = 0000001 
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Psect synopsis 


damon em nee een ec coe $+ 


! ; Psect synopsis Pe 


PSECT name A 


~- 
~ 
fe] 
o 
Q 
oe 
~ 
o 
P| 
v 
nw 
mm 
o 
-_" 


No. Attributes 


ABS 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON 
S$ Bopp oT er ( § » Q1 1.) PIC USR CON 
T_PURE 4's dA ( 492.) ¢ ( ¢°} NOPIC USR CON 
NET~ IMPURE 00000038 (¢ 59.) 03 (¢ 3.) NOPIC USR CON 
CODE QOO014AA ( 5290.) 04 ( 4.) NOPIC USR CON 
/cmouscennenseneeneumess 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization ¢2 00:00:00.09 00:00:00.86 
ponnene processing 136 bs he | 00:00:03.49 
s 1 19% 00:00:40.4 00:01:21.84 
a table sort 1 00:00:05.13 00:00:07.36 
Pass 2 1396 ae eh aE 00:00:24.47 
Symbol table output 5 00:00:00. 00:00:00.68 
Psect synopsis output 2 00:00:00.05 00:00:00.16 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 3030 00:00:57.42 00:01:58.87 


The working set_Limit was 1500 pages. 


source Lines were read in Pass 1, "aie 44 object records in Pass 2. 
69 pages of virtual memory were used to define 57 macros. 


Sewanee woe reece we eee wee eet 


Macro Library name 


~-$255$DUA28 : CSHRLIBINMAL IBRY.MLB; 1 1 


_8255$DUA28: CSHRLIB EVCDEF .MLB; 1 1 
5 g250u : C(NETACP.OBJ JNETDRV.MLB; 1 1 
"$255$DUA28: (NETACP. eT .MLB: 1 18 
“$255$DUA28: (CSYS.OBJJLIB.MLB; 1 3 

$255$DUA28: Sy IBISTARLET MLB; 2 18 
ToTAcs att Libraries) 42 


3516 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 


"SrSEp=1986 O2:18:18 Ener 


ABS 


REL 
REL 


224419 bytes (439 pages) of virtual memory were used to buffer the intermediate cod 
There were 190 pages of symbol table space allocated to hold 3313 non-local and 227 


local symbols. 


pays Macro V04 


-00 
NETACP.SRCIJNETCNFDLL.MAR; 1 


LCL NOSHR NOEXE NORD 
LCL NOSHR EXE RD 
LCL NOSHR NOEXE 

LCL NOSHR NOEXE 
LCL NOSHR 


Page 76 


(32) 


NOWRT NOVEC BYTE 


NOWRT NOVEC BYTE 
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